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NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
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THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
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©DP-11 COMPUTER WITH CONSOLE TELETYPE, AND A Reo DISK SYSTEM. 
THE RPOY DISK SYSTEM WILL CONSIST OF Ay FH? CONT ER, 

A DISK CONTROL LOGIC (DCL) 

CONNECTED TO THE MOLI BUT tr’ NOT THAT ROLE mst BE PROPERLY 


THIS PROGRAM REQUIRES 16K WORDS OF MEMORY. 
PRELIMINARY PROGRAMS 

THIS IS THE FIRST PROGRAM TO RUN 

LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 

SEE SECTION S.! 

STARTING ADDRESS 

START AT ADDRESS cO00---FOR NORMAL RUN 
START AT ADDRESS 210---FOR UNIT SELECTION 


EL THe APOvS ON THE. SISTER 
STARTING pOORESS. ALL UB Ae en Pack re 


TESTING MILL stant WITH The 
HAT RESPONDS: THEN 


That IS POWERED UP. 
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WITCHE T WN FOR WORST CASE RUN. WITH THIS 
Eis GHLLCHES HST BE DOAN FOR UORET CASE RUN, LTH THIS 


siete phe! Bat 5D D path ONLY THAT UNIT WILL BE TESTED 
PROGRAM AND/OR OPERATOR ACTION 

1. LOAD THE PROGRAM INTO MEMORY. 

@. SET STARTING ADDRESS ON THE SWITCH REGISTER 

3. PRESS “LOAD ADDRESS”. 

4. peter PEROT LONE SHITSH Be raNGS” (SEE SECTION S.1) 
PRESS “START”. 

6. Any ne FIRST PASS EACH TEST WILL BE EXECUTED ONCE 


Passe indi ED. THE FIRST PASS HILL REQUIRE OPERATOR 


ONTTOR. THE TE CORD AND PND SUBSEQUENT S .y it execute 
ST £0 FOR Yi ON EACH DRIVES PRESENT OR 


ts 


peten CEN S PRINTED. THE oe CONO 
BUENT | PAS NOT NEED ANY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 

OPERATIONAL SWITCH SETTINGS 

SWITCH DEFINITIONS ARE GIVEN CTION 9 “OPERATIONAL 
euTCH ort Naas HOWEVER THE TAIL beccarer ion ARE GIVEN 


ITCH 15 - 
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pRogae WiL, GIN TO LOoF 
ON THE i CUTED. IF THIS 
SWITCH . IS_IN TEST 10 THEN THE 


Piura mcr eran, 


WAY 4 
TEST iS. TO SET THIS oe gas DURING AN ERROR PRINT 
DURING A PROGRAM HAL 


SWITCH 1 NHIBIT 
HEN ay SH TCH IS T FURTHER RARER ens WILL 


itm both n R Oe END OF PRES Ty at Nu BER OF ERRORS 
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ON THIS PASS ON DRIVE X" WILL SE TRUE, THAT IS, ALTHOUGH 
PEN TOUTS WERE INHISITED IF THAT PASS FOUND & ERRORS, 
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SWITCH 11 = INHIBIT ITERATIONS 
WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL 
MOL ReREST EACH TEST FOUR TIMES BUT WILL DO EACH TEST 


SWITCH 10 - BELL ON ERR 


OR 
WHEN, THIS, SWITCH IS SET, IF THE PR FINOS AN ERROR 
oA Sh bee WILL ee Sotnoen THIS SWITCH IS USEFUL 


ITCH 1 YET NE OFT 188s NEEDED WHEN ANY ERROR 
I eee! toate The E SAMPLE OF LOOPING ON A TEST WITH 
TCH 11 a B SCOPING. OF THEN IF THIS SWITCH IS 


ERROR 
GENERALLY THE PROGRAM WILL LOOP BACK 10 THE. LAC 


CUTED * STAT! IF ON THE SECOND TIME 
AN IS Fi IT WILL AGAIN LOOP BACK TO 
T “SCOPE” STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 
A OP peccit THIS Fg Hes S SET. HOWEVER 
T NO AT ANY TIME THEN IT WILL 


I 
gtr NORMALLY WI 
ENCOUNTERED PRI 


Fe As) oer, DURING. 8 


NOTE: ALSO SEE SECTION 8.3 


CH 8 - Oe tod” Gen ce 
IS A te CH. WHEN SET SWITCHES O THRU 7 


7 HAVE 
T ING OF SWITCH 
APPROPIATE 


256 

ERROR pi AFTER SEEING PRINTOUT FOR Ly. 3 FIRST FEW 
WORDS SETTING SWITCH 7 ONLY WILL STOP FUR I 

H GO ON WITH en RATHER THAN PRINT 
WORDS. HOWEVER IF THIS WAS DONE WITH SWITCH 11 
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A SUB- 
SEQUENT TEST WILL ALSO BE LOST. BUT WITH SWITCH 7, ONLY 
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263 THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
264 EXAMPLE OF SWITCH 6 BEING LOW IS WITH SWITCH 6, WHICH 
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5.2 


6.0 


7.0 


5 TT SP BO PSL Ol ESE SD 
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 


NOTE: ALSO SEE SECTION 8.3 


SWITCH 7 = STOP FURTHER COMPARES IF SWO8 IS LOW. 
I SET ad THIS SWITCH IS BLO seh THEN THIS 
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PATTERN REGISTERS AETER EVERY CLOCK, COMPARES WILL BE DONE 
ONLY AT THE END OF ALL THE CLOCKS. 

SUB-ROUTINE ABSTRACTS 

SEE SECTION 9 “SUBROUTINES” 

ERRORS 

ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 


PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE. 
mts INFORMATION MAY BE THE CONTENTS OF RELEVANT RPOY 


ISTERS OR TA. IF THE ERROR OCCURRED IN A 
SUBROUTINE, T YEP ie guahouT ie COLL 1S AL oD 
GIVEN. REFER TO THE PROGRAM LISTING. AT THE STATED 
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RESTRICTIONS 


IF THERE IS A DRIVE CONNE THEN THE OPERATOR MUST HAVE 
THE DRIVE OR PORT B 


T NEVER PPRvE tt N OE PR E conte” IF THERE 
S NO DRIVE CONNECTED THEN RoR OLeS LY GOING FROM 
THE DCL TO THE MOLI MUST BE PROPERLY TERMINATED. 
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322 

323 8.0 MISCELLANEOUS 

aes 8.1 EXECUTION TIME 

3e? THE FIRST PASS OF THE PROGRAM WILL TAKE 1.75 MINUTES PER 

328 DRIVE. SUBSEQUENT PASSES WILL TAKE 7 MINUTE. 

353 8.2 STACK POINTER 

sa THE STACK IS INITIALLY SET TO 1000 

oH 8.3 OPERATOR SELECTABLE SCOPE LOOPS 

335 HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
336 ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 
337 PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING OF THE TEST. 





+ gm RL THIS pee a Ae SCOPE LOOP IS USED THEN THE POINT 
THE S rion POIN WHERE THE PROGRAM CAN GO ARE: 
o rn i Etta in UNDER CONSIDERATION 


T 
T “OCCUR OR MITE N A THE TEST UNDER CONSIDERATION 
IF i ERROR 0 OF RAVER NOT gccun WITHIN THE ue UNDER CONSIDERATION 


THE PROGRAM W TO NORMAL OPERA HOWEVER, IF LOOP ON 
ey ee 3 “SET AO AND ic OPERATOR oe lect ABLE SCOPE LOOP IS USED 

WILL LOOP BACK TO SELECTED POINT WHEN I 
Cone TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


9.0 PROGRAM DESCRIPTION 


THE FOLLOWING SECTIONS DESCRIBE EACH TEST AND SUBROUTINES 
N OE TALL ae CAN ALSO BE USED AS ING. 
HE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 

WHERE THAT ITEM WILL BE FOUND. 
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OPERATIONAL SWITCH SETTINGS 
BASIC DEFINITIONS 


STARTING ADDRESS(ES) 
MEMORY MANAGEMENT DEFINITIONS 


ERROR POINTER TABLE 


REGISTER ADDRESSES 


END OF PASS ROUTINE 


SAVE REGISTERS ROUTINE 


CLEAR MEMORY ROUTINE 


CLEAD DISK ROUTINE 
CHECK DISK STATUS ROUTINE 


WRITE CHECK ROUTINE 
COMPARE ROUTINE 
CRC GENERATION ROUTINE 
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Sera ete 
JAM CURRENT CYLINDER ROUTINE 
ECC GENERARION AND COMPARISON ROUTINE 
RH BASE ADDRESS CHANGE ROUTINE 
DISK SIMULATION 
SCOPE HANDLER ROUTINE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
TYPE ROUTINE ~ 
TTY INPUT ROUTINE 
READ AN OCTAL NUMBER FROM THE TTY 
ERROR HANDLER ROUTINE 
ERROR MESSAGE TYPEOUT ROUTINE 
BINARY TO OCTAL (ASCII) AND TYPE 
TRAP DECODER 
TRAP TABLE 
POWER DOWN AND UP ROUTINES 
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2 COPYRIGHT (C) 1975, 1976 
DIGITAL EQUIPMENT CORP. 
MAYNARD, MASS. 01754 


PROGRAM BY SUB MALLICK 
THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZGAC-AS). 


RRELERELLLEEE LA LEKERAE EERE LE RELEEEEERELE LEE LAE ERELEEEELEERRELEERE 


OPERATIONAL SWITCH SETTINGS 
KRKRH HEAR EERE EEE EAE REE REE EERE EERE EEE 


14 
SWITCH USE 


“1s HALT ON ERROR 
oe ON TEST 
INHIBIT ERROR TYPEOUTS 
. INHIBIT ITERATIONS 
BELL ON ERROR 
LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 
STOP FURTHER COMPARES IF SWO8 IS LOW 
ECC TEST-COMPARE END RESULTS ONLY IF SWO 
JET HH EEE 
BASIC DEFINITIONS 
HERR R HEHE KEELER REEL EE EEE EE EEE REE EEE EERE ERE EEE 
29 INITIAL ADDRESS OF THE STACK POINTER #%# 1000 #%# 
40 GENERAL PURPOSE REGISTER DEFINITIONS : 
Se PRIORITY LEVEL DEFINITIONS . 
62 “SWITCH REGISTER” SWITCH DEFINITIONS 
90 DATA BIT DEFINITIONS (BITOO TO BIT1S) 


118 BASIC “CPU” TRAP VECTOR ADDRESSES 


0 he 
TNDOWOrKWcUI 
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538 MAINDEC-11-DERPS-8 \ ecooe vER 00.04 
530 FSSLSFLAFFELESSSESSEFAAEFL ELSE SLAELELELESFISALSSAFSSLELAELA LEAFS RELESSSSE 
541 133. TRAP CATCHER 
zis PEPECLEFELERHEFSHSFSELSEELSSEL LSE EFS LEA FEESLELFELSEFLEFEF SL ELSE SEF SS 
545 136 ALL UNUSED LOCATIONS EROM 4 = 776 CONTAIN A.” .+2)HALT™ 
54s SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
v6 LOCATION 0 CONTAINS 0 TO cane IMPROPERLY LOADED VECTORS 
48 SEELALERALLL LAL ARALLAELLLAEL ERLE SELES LE LESLE SELLERS SALLE ARES E LES 
49 140 . STARTING ADDRESS(ES) 
350 PEESSELEE SER PRESL ELS SRE SELLER ESSEYG SERBS EERE BLESSES SE SEES ALS ERLE SEES 
552 14e STARTING ADDRESS 200 FOR NORMAL STARTS 
=e THIS WILL TEST ALL RPOY'S ON THE SYSTEM A SINGLE DRIVE AT A TINE 
EES STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 
557 RELSPLLERESSLELLESRIE RE FEF RELF ERASE SALLE ERELSEL SHE LHELEESESRK SEBEL SS 
558 151 MEMORY MANAGEMENT DEFINITIONS 
Ses SLERERKSEREREKESSERAAALESSA LASS SELES SSSAAALALELEDLE RE LEELA ARAEAERAEE 


153 KT11 VECTOR ADDRESS 
187 KT11 STATUS REGISTER ADDRESSES 
164 KERNAL “I” PAGE DESCRIPTOR REGISTERS 
175 KERNAL “I” PAGE ADDRESS REGISTERS 
186 3 9 3 9 EE a EEE Ee 
188 SE SEE Ae SE ea SEER HE EE SEER EE ESE EAE EEE EER EE EERE EERE 
See eS Ae a AE A A A Se a AE AEA ae EE EEE EE EEE REE EERE ES 
_ Lee ePALSSTACHHASGEAEAERSEDEREOAEEEEORERESAEESEEEEEEESELEAEE 


192 THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM. 


244 KLLELEAHLESHELASRLA RARE ALLE LALLA LELALELA ALTAR AAELERLE ERLE REL 
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om 
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FRELLLLELELAALLLLL SLE LEELSLAE LLL E RAL LALF LALA LAER ALELAL ALE RSLS SESE 


ERROR POINTER TABLE 
RHEE RLE EERE EERE FEE ER EERE EERE EEE AREER EE EERE EEE A EEE EE 


248 THs Me CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCU 
THE INFORMATION is OBTAINED BY USING THE INDEX NUMBER FOUND IN 
LOCATION 3! TEMB. THIS NUMBER INDICATES WHICH ITEM 0 THE TABLE I 
NOTE]: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC). 
NOTEe: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS 


254 EM ;;POINTS TO THE ERROR MESSAGE 

DH s;POINTS TO THE DATA HEADER 

DT ;;POINTS TO THE DATA 

OF ssPOINTS TO THE DATA FORMAT 
263 EF EREREEP RESELLER ESE LEE SELES EL HAE SELLE SHAE LEE Es REE EFE EELS REL EEE 
700 REREKAEAERAD EAE E SELLER ERLE EASA R ERLE LEE E LESSEE LEE ESEL ELSES 
70S SA REEERELESS EEE EDL TEL ERP ERS ELE LEE EELESHSEE LE SE LAE LS PALSSSEL ESSE 
739 HREEEP REE REE BS SEAL GREER ER ERE LEA LAE SER EEG EEE EAEE ELE EER ELLE SASS 


KELELLALLATELALLLAELLALE LELELELLAFLAAELLLLEELELELALLL ELLE LE LES 


RELEASES SEARLES EE LELLEELLLLA SELLA LE SELLE SE LERALSEALLELELALAELELE 


REGISTER ADDRESSES 
A FE A Fe SE AE Sk HE EE A EEE EEE EE EEE 


LLELLLELAE LAL ALLELE LELLLALELELET ELE LLLEALAELERELLERLL ALA LELSRELEL 


REGIST 
JEHBMHHHHEHHHEHHHHEHHHBHHHBHHHEHHBHHBEHHHEEHHHEHHHEEHHHHHEHEHEE 


L473 AE ge Ee dE a EE AE SE ESE AEA EEE EEE EE EE EEE EERE 
TEST 1 RE EACH REGISTER 
GISTER BY A HOVE TO TRUCTION 
JEG HHHHHHHHHHHHHHHH HHH HHHEHHHHHHEE 


1191 ert itt t ttt titi ttt ttt tt ttt t ttt tti ttt titi t titi ttt ttt ttt tt ae 
TEST 2 RHCS2-CONTROL AND STATUS 2 


1194 THIS PARTIALLY TESTS RHCS2 TO ENABLE DETERMINATION 
OF THE NUMBER OF DRIVES PRESENT 


1197 JHMM HIIHEHHHHHHHHHHHHHHHHIHEHHHHIHEHEHHGHHEHEHHE HEE et 
1213 RELELEFHLETLLAAALAAALALALLLLE LAE LALAAALLLALALALELASLRELELEREELE 


TEST 3 PARTIAL TEST FOR RHAS FOR UNIT NUMBERS PRESENT 
Re AES gE AE Ee HE AE EA AR EE EE AR He HEE EER EE AE EER RE HER ER AERA EERE R AREER 
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TEST 4 TEST FOR DRIVES PRESENT USING RHAS AND RHCSe 
JUHHEIHE HEHE HHI HEHE EIGER EERIE ETHEL ERE EE 


SAeeanees renenenenesenensnensenenenecenetasaeseeeceneTASS | \ 


TEST S TEST SERIAL NUMBER AND DRIVE TYPE! 
RE NUMBER REGISTER AND DRIVE TYRE REGIS 
AND PROC 


T 
TO LOOP HERE SET SWITCH 8 AND THIS TEST NO AND R 
3 RE EEE SEE EEE EEE ESE EEE EE Ee a 


JE HEHHHE HEH HBEHHHEHHHEHEE EEE HEHEHE EE Etat 
TEST & CHECK MOL TO BE LOW 


MAKE SURE THAT DRIVE IS OFF LINE BEFORE STARTING PROGRAM 
IF DRIVE IS ON LINE THEN AFTER TYPE OUT THE PROGRAM WILL 
HANG FOR EVER WAITING FOR DRIVE TO GO OFF LINE 


RELLEK KALLE LLALLLLLLLELLLELELELLLELALLLELLLELLLLLLELELLLLLLLL EEE 


JERE HHH HHHHBB ieee eae 
TEST 7 RHWC - WORD COUNT REGISTER 
TEST LOADING AND READING OF ALL POSSIBLE BITS IN 
ISTERS. USE A PATTERN OF WALKING 0’S (-2,-3, 
WALKING 1°S (1,2,4,10 ETC) 
JEBHEHHBEHEHHHBHHHHBHHS HEHE HAB HBB HBB HHHEEHHEEHHHEEEE 


{HHH HHH HHH HSH HHH 
TEST 10 - UNIBUS ADDRESS REGISTER 
TEST LOADING AND rere Tts OF ALL POSSIBLE BITS IN 
REGISTERS. wef PATTERN OF WALKING 0’S (-2,-3, 
WALKING 1°S (1,2,4,10 ETC) 
sesnsimenssenameninantaioinatinialitetos JEBBEBEHEHHHHBHEBBHEHEHHHBHE 


HeRAHEEEEEEEHEREAEEEEEEEENOEES JEHHHBEHHHBEEHHHHEHHBEE 
TEST 11 RHCSe - CONTROL AND STATUS 2 
feat TERS. tO, ReoING OF ALL POSSIBLE atts IN 
GISTERS. USE A PATTERN OF WALKING 0°S (-2,-3, 
WALKING 1°S (1,2,4,10 ETC) 
PSeTSTTTTTT TTT TTTTST TT eT TTT TT TT TT STEPS TST TTT TT TTT TT TTT TT ET Ty 


339 9 9 9 EGE EE EEE ESE EE 
TEST 12 RHCS1 - CONTROL AND STATUS | REGISTER 
TEST LOADING ia rewiue OF ALL POSSIBLE BITS IN 
REGISTERS. 5k PATTERN OF WALKING 0’°S (-2,-3, 


WALKING 1°S (1 10 ETC) 
AARE HEHEHE 
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sonesuenseseenennenenersussessssunsseeonsnennasensunnsanesnns 
T 13 RHERI - ERROR REGISTER # 
feat TERS. AND 1 EAD NG OF ALL POSSIBLE eiys IN 
REGISTERS. Cah (-2,-3, 
WALKING 1’°S (1,2,4,10 ETC) 
sunsmuansnunenaneotnananbotasnbehslbtatetonesansensumennnaaned 


JHHGHBIHBIGHEHEHHE HEHEHE HEHE HEHEHE 
TEST 14 RHMR - Poe ENANCE REGISTER 
BIT O ¢ 2 PusT BE SET BEFORE THE OTHER BITS 


ONLY S LOW ORDER BITS ARE TESTED (Re HAS S) 
JHB HHH HHH HEE ae 


FLFLELLELLLERELELALALLAELALALELELELELALLELERALE SELLA LE LALEL SEES 


x Re Leona TEST LOADING AAD REAOING OF ALL, POSSIBLE BITS Ih 


we 
RACKING 7 1'S (1,2 to Wel 


HELLLELLLELLLELLELLARAELELELLE sachshebseunsscuses KELLLLLLLLELLLELLLEEE 


weet 1G RHERO ERROR REGISTER go EEE 


- GISTER #2 

TEST CRO ING ft ia ING OF ALL pose lete BITS IN 
Sats (rere ee Oe OE 

eeeeemananmnetatakarntetatkithehitetatenetin JHEEHHHHEEEHHHBGHEHHHHEEE 


JHE HEHEHE GHHHBHBEHHBHEB HEHEHE 
TEST 17 RHOF - MAR at REGISTER 
TES i NG AND READING OF ALL POSSIBLE BITS IN 
GIST ic i ve or m,* WALKING 0°S (-2,-3, 
JEBHEHHHHHHHEHEEHHHHHHHHEEEE MIRA Ad JEBHBHHHBHHHHBEEEEE 


28GB JEEHHHHHBEHHHHHEEEEE 

TEST 20 RHCA - DESIRED CYLINDER REGISTER OF ' BITS IN 
REGISTERS. Use A PATTERN OF WALKING O'S tee =a. 
WALKING 1°S (1 Ue 10 ETC) 

JAB HHHHHHBHHHHHHNHBBBH HAH BB BBHHH BH HHHHEEE HEHEHE 


i Rika aan ae ee ee oe 


TEST 21 RHER3 - REGISTER 83 
TopORQING AND oPEROTNG OF ALL POSSIBLE Bits IN 
als USE_A PATTERN OF WALKING 0’S (-2,-3, 
WALKING 1°S (1,2,4,10 ETC) 
a iirtttiiiieititittiitiititiititiiiittttiitetii tert ii erae ey 
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18le 


1818 
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de ee er a ee eee 
TEST 22 RHCS1 - BIT # 13 - MCPE 

gut nig Fontes A A Hass nee BYE. COT RO A PARITY ERROR 
OuSEEnAeEEAEELESSSOSSSSSSEASEROESSRSGESSSISSUSSENESESESESEE0RS 
ee tae eee 


TEST 23 CONTRO aos RHCS 2) 
THe UN ih tect (fai #0-2 (US1-4) CLEAR BIT #5 
HONEXt TENT I 


OTHER RHCS2 BITS ARE “Nort TESTED HERE 


 RERERE EERE EEEAE EE ERASE REESE RA EAAE LEELA REE AERAARELEL AEE S ELL EEE 


KLLELLLLLELLLALELLLLSSARELLLELELLLALELELALELLLLELELALALLELELALLLLEE 


SILO 


TES 
KELLALLLAFELELLLELLLLLLELALLLLALLEL ELLE LELELELERELELELALALELALEE 


2189 


2162 


2168 
2216 


2219 


2229 
2282 


e285 





SESE EEE SE EE EE 
TEST 24 SILO TST 1 


THIS TESTS THE SILO BUFFER IN THE RH11 CONTROLLER 
A READ 15 ATTEN ILO 
DATA LATE (DLT) (RHCS2), TRANSFER ERROR (TRE) (RHCS1), 
SPECIAL CONDITION (SC) tRHCS1) SHOULD SET 
THEN LOADING “1" INTO TRE SHOULD CLEAR DLT, TRE AND SC 
JEHEE HEHEHE HEE HHH HHH SHS HSS 


JEG HHHHHHHHEHE HEHEHE HHH HEHEHE HE 
TEST 2S SILO TEST2 | 
THIS TESTS Ls IR "8 “OR” BITS OF RHCS2 
AT THE CE GTNNENS BE SET AND oe RESET 
LOADING O IN ito. feeers IR FOR ONLY 2 MICRO SECONDS 
17 Bors Go Down on nst CHECKED BUT IT IS CHECKED TO SEE IF 


1 IS LOADED IN SILO “OR™ SHOULD BECOME SET 
IN 30.8 aoe Cones AGAIN TIME IS NOT CHECKED 


THE OUTPUT FROM THE SILO SHOULD BE 0 AND ALL ONES 
JE HHHEGHEHEH HEHEHE HEHEHE 


9-9 969 69 9 EEE EE EEE 
TEST 26 SILO TEST 3 


THIS TESTS SILO BUFFER BY 
TO THEN CHECKING 
TS HIGH AND COMPARING THE 


F 
I 
S 
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LEALALEAELEL ALLELE LALA LA LERELAF LALLA LLLEREL LEASE LELLELALAEERE 
i et oe ee eee 


TEST 27 arte aoe 
T_ 67 WORDS NTO Ik SILO AND CHECK FOR DLT 
EVEN AFTER THE 67TH. WORD INPUT THE FIRST WORD SHOULD NO 


LELLLLLLLLALELLELALALELL ALLELE LLL LLLELELLLLLALE RELA SLES SALES ES 
LKELLALLLLALELELLELELLALELELERERELALALELLAAELA LER ELE ELE LELLLES 
TEST 30 ST § 

THE SILO 15 LOADED MITH O,1,2,9 THEN AFTER 


1S bone THEN 4, 
1S LOADED. AFTER ae fe iS 2 READS FROM’ 
SILO IS DONE ON THE LAST DTL IN RHCSe SHOULD BE SET 


KELAKAELLLLLLLALELALARLEAALALLLLE LE LAL AE SELALELELA LA LE LE LALLELE 


JHE EHHEHEEHEHHHIEEIHHHEEEEHEIEE EE EEE AE Et 
TEST 31 TEST ODD BYTE INSTRUCTION ON RHCS1 


RDY (BIT 07) AND. DVA (BIT 11) SHOULD ALWAYS BE SET 
JAH HEHEHE EEE EEE 


JEHHEHB HEHEHE HEHEHE HEHEHE 
TEST 32 TEST ODD BYTE INSTRUCTION ON RHCS2 


IR (BIT 06) AND THE UNIT SELECT (BIT O-2) WILL BE SET 
SE EAE SESE SE EE SEE EE SE EEE SEE SEE SESE SEE EERE SEE SEE EE AEE SEE EEE EE EEE 


JEHHHHHEHBEHHEA HBB HHHHE HEEB EHH HHH HEHEHE 
TEST 33 ODD BYTE TEST ON RHWC 


IN THIS REGISTER NO BITS SHOULD BE PERMANENTLY SET 
3-09 J EEE SE 


JE HHE HEHE HGHHHE HEHEHE HHH EHH HHHEEHEHEE 
TEST 34 TEST ODD BYTE INSTRUCTION ON RHBA 


BIT 0 SHOULD ALWAYS BE 0 
JEHHHHHHHEHEHHEHHHHHHHEHHHHHHHH HEHEHE HEHEHE 


JEHHIHHHHHHHHHHGHEIHH HE HHEHE EHH HEHEHE 
TERS WILL BE RESERVED FOR HARDWARE 
R1=RHCS1 CONTROL STATUS] 
Re=RHCSe CONTROL STATUSe 
R3=RHDS1 DRIVE STATUS 1 
R4=RHER] ERROR REGISTER 
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WHENEVER ANY OTHER USE IS MADE OF THESE REGISTERS 
APPROPIATE SAVING MUST BE DONE 


EELREREELALALALA AEE EE RELERAERLALEA EASA ERELELELLRELELERELERLEE 


JE EH HHH bbe 
TEST 35 PACK ACKNOWLEDGE COMMAND TEST 


THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED INTO RHCS1 
THEN ALL ig ae: WILL BE CHECKED 

RH CLEAR WILL BE GIVEN 

THEN ALL REGISTERS WILL BE CHECKED 


HELELLLALLLELELELERELLELLLLLALEL ELE LEE ELELLLAL ALLELE LA LEELELELAE 


JEG HEHEHE HHH EE ie 
TEST 36 UNIBUS INIT TEST 


ALL POSSIBLE REGISTERS ARE FILLED WITH ONES 
A RESET COMMAND IS GIVEN 
ALL REGISTERS ARE CHECKED 


LLLALALALLLLLLLLLLELREELLELELELALEL ALLE LELELERELALAL ARE LE REELS 


JES HHHE HE HBEHHEHHE HEHEHE EEE 
TEST 37 READ IN PRESET 


ALL POSSIBLE ere TESS rg BE FILLED WITH ONES 
THE REGrS TER co rs i ae en REINTO SUFFER 


THE RE! Sey COMAND WILL BE 
ALL RECISTE BRILL 


HELEHLERE LKLLELLLLL LLLELALLAALLLLELELELE 


JX HEH HHH EEE EEE 
TEST 40 NO OPERATION FUNCTION TEST 
ALL POSSIBLE REGISTERS ARE CLEARED THEN A”NOP”=0 
IS GIVEN NO CHANGE SHOULD HAPPEN : 
ALL POSSIBLE REGISTERS ARE FILLED WITH ONES THEN A -“NOP™ 
TS GIVEN NO CHANGE SHOULD HAPPEN 


JH HHHHHHHHHHHEIHHHH HHH HHH HHH HHH HHH Ea ates 


JEHBEHBHH EEE HHEHIHEHHEHEHEEHEEEHEHEEE EE 
TEST 41 DRIVE CLEAR 


ALL WRITE BITS OF ALL REGISTERS EXCEPT RHDB ARE FILLED W 
ONES EXCEPT FOR BIT #0 AND BIT #6 WHICH ARE “GO” AND 
“ENABLE INTERRUPT" BITS 

THEN A DRIVE CLEAR IS PERFORMED 

THEN ALL REGISTERS EXCEPT RHDB ARE CHECKED 
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JEHEHBH HEHEHE HHH HEE 


JEHBHHEHE EEE HEE HHEE HEHEHE HEHEHE 
TEST 42 SEEK COMMAND TEST 


THEN BL Et REGISTERS MILL BE CHECKED RHCS1 WITH GO 


BE GI 
HEN ALL REGISTERS WILL BE CHECKED 
JHB HHHHI HEHEHE HIE 


JHE HEHEHE EEE EEE EE Ea 
TEST 43 UNLOAD COMMAND TEST 


THE UNLOAD COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
THEN ALL REGISTERS WILL BE CHECKED 
RH CLEAR WILL BE GIVEN 

JHE HHHHHHH HHH HEHEHE HHH HEHEHE HEE 


JEHHIHEHHHHHHHHHHHEHHHHHIHHHIHIHIEIHIEEHHIHHEEHEI EEE tt 
TEST 44 OFFSET COMMAND TEST 


OFFSET COMMAND WILL BE LOADED INTO RHCS1 WITH GO 


W 
Pen ona RECT TER ah ILL BE CHECKED 
THEN ALL REGISTERS MILL BE CHECKED 


RELLARELEE REEL ELLA E EERE EERE ARE LAER ELLA AA LEE LE LEAL ELLE LES 


JEG HHH HHHHHHHHHHEHE HEHEHE HHH HEHEHE 
TEST 45 RETURN TO CENTER LINE COMMAND TEST 


THE RETURN TO CENTER LINE COMMAND WILL BE LOADED INTO RH 
THEN ALL Uitte gl WILL BE CHECKED 


FHEN ALL Recs eUTLL BE CHECKED 
JAH HHHHHHHIHHHHHHIHHIHHH HEHEHE HIIGHIIEHIIEIHEE EEE 


JE HHHHEHHHHHHHHHHHHHE EAH HHEEEIHEEEIHHEIEEHEE EE EE 
TEST 46 RECALIBRATE COMMAND TEST 


THE RECALIBRATE COMMAND WILL BE LOADED INTO RHCS1 WITH G 
BE CHECKED 


THEN ALL REGIS WILL 
RH CLEAR WILL BE GIVEN” 
THEN ALL REGISTERS WILL BE CHECKED 
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3989 9A HHBBH BH HE HEHEHE HEHEHE THEE HHE HEHEHE EEE EEE 


YL 1G RRR ARK EMRE EERE EERE REE ER EE E EEE EERE EEE EE EEE EEE EE 
TEST 47 RELEASE COMMAND TEST 


4119 THE RELEASE COMMAND WILL BE LOADED INTC RHCS1 WITH GO 
pen A: peer orer tL WILL BE CHECKED 


THEN ALL REGISTERS WiLL BE CHECKED 
S124 9 SEE EE JEJE SE SESE SE SEE EEE SE HEE EE EEE HEE EE EEE EEE 


1S] HEME SESE EEE EEE EEE ERE EEE EERE ERE E EAA E EEE ALESS 
TEST SO MAKE CURRENT CYLINDER = 


4193 LERALLLAFLLLLAAAAE REALL LAALEL LAKE LE LLL LALA LALALEAE RELL EL ELLE SE 


OCG = HAE ERIE SESE EAE HEME HEHE HEHE EERE EERE EE EERE EEE EERE EEE EE EE 
TEST 51 LOOK AHEAD REGISTER 


4209 A SEARCH COMMAND IS GIVEN FOR CYLINDER 0, TRACK 0, SECTO 
THE LOOK AHEAD REGISTER IS CHECKED AFTER INDEX PULSE 
T S CHECKED IN EACH SECTOR AFTER 
128 BYTES THEN AGAIN AFTER 128 MORE BYTES THEN AGAIN AFT 
THE SECTOR COUNT FIELD IS CHECKED AFTER EACH SECTOR 
AT THE END ALL REGISTERS ARE CHECKED 


4216 9 JHHBHHBEHHBEHHEHHEHHBHHBHHHEHHHEHHEEHHEHHE HHH HEHEHE 
441900 JHBEHHBIHHHHEBEHHHEHHEHE HEHEHE HEHEHE EEE EE 
TEST S2 MAKE CURRENT CYLINDER = 
2H 


4435 SERRE EERE SERRE REESE EEE 
TEST S3 WRITE HEADER AND DATA 1 


4438 TE CYLINDER 0, FORMAT 16 BIT PER WORD 


Pract! Rtsalb ls BNE! (eR O's 


CONCLUSIVE ON FIRST 
CAUSE ERROR L toate has TNO BEEN‘ CHECKED YET “ion FIRST P 


4444 RELAKELLLA ELLE LALLA ALLL A RESALE ELL LAAALLAL LASALLE LELELEALLE 


SOS 36 9666369696 96 969 9 EEE EEE EE EER 
TEST S4 WRITE HEADER AND DATA 2 


4542 WRITE By sec YOR FORMAT 16 BITS PER WORD 
a a glen t, Weve O, NUMBER OF WORDS 256 


Sr PO, OATS BEEN CHECKED YET CON FIRST P 


SSRt RRR iinet titi RERER PERE Se siae du una cae eae 
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4548 RELAAAAH LAKE RE RARER ARERRELAA LEAF RAE LE LAL ER ELAR ELELESRELE LE LEESE 
4656 KXLKLEKSLAFHLES EERE EKER ELLE SELES ERA LEE RESELL ELF LE LEE LELE ALES F LE 
TEST SS WRITE 


RIT R O FORMAT 16 BITS PER WORD 
TRACK 1, SECTOR 1, KEY 0, NUMBER OF WORDS 256 
ALTERNATE ONES AND ZEROS’ (052525) 

ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST 
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST P 


4654 RRKERELLAA LLL ELEAF RERELKELLLLE RELA LLL AEA ELLAEL ALARA LEERALAALEE 


77S HEHEHE HEHEHE ARH E ERE EERE REEL E EEE EERE EERE ESE 
TEST S6 PROGRAM ERROR RHCS2 #10 


4778 WRITE CYLINDER 0, FORMAT ate BIT PER WORD 
TRACK 0, SECTOR 0, KEYS 0, NUMBER OF WORDS 256 OF 0°S 
WHILE G Gb BIT IS SET ANOTHER GO IS GIVEN THIS SHOULD SET 
4783 SERELKE REELS EE LE REESE RLS ER ESE LEE LR SEL ERE KEELES REESE LELERE ERKELE 
4YeYG KRAKKAARAALA LALA RELALA LARA AA AA RSKLKRA AERA KAA KASSEL A ASAE RE KEES 
THE T THE MAINTAINABILITY REGISTER 
THE SECTOR GAP AND SYNC BYTE YS READ AS 
ZEROS AND 144000 NO MATTER WHAT IS IN THE SIMULATED DISK 


TAGED SECGAP: AND WSSYNC: 
Te eee CONSISTING OF CYLINDER ADDRESS, SECTOR/ 


ON THE SIMULAT SK tal 

HE olin SS "ore 

ALL DATA IS READ FROM SIMULATED DISK DISK: 
4863 LLLLLLLLLLAALALALAALAAAA LARA LALALLLA LALA RA LARAARRAAL F RARAARALERE 
4868 Tey SP READ HEADER AND DAT REE 

AD CYLINDER O FORMAT 16 BITS PER WORD 

TRACK 0, SECTOR 0, KEYS 0, 256 WORDS OF 0 

ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST 

BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST P 


REALALARAR AKA AALRAA AERA ERA EE ALLA AL REAR AAA LAL LALA REALE AAAERELE 
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at on ira GER Gk EP ae ete 
READ CYLINDER p poRnar 16 BITS PER WORD 
TRACK 0, SECTOR 1, KEYS 0, 256 WORDS OF 177777 
ANY ERROR LOGIC TROTCATIONS BRE NOT CONCLUSIVE ON FIRST 
BECAUSE E LOGIC HAS NOT BEEN CHECKED YET (ON FIRST P 


REKREKLALALALLEAAA AERA RLLELALL LALA LEE ARLE LAELAL ELA EEE RA ELAAELE 
el hi oh a en ne le 


READ CYLINDER O FORMAT 16 BITS PER WORD 
TRACK 1, SECTOR 1, KEYS 0 WORDS OF OS2525 

ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST 
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST P 


HRERAAELAALKAL LE LEREREEELLELALALA LALA AARRELELLA LL RARE RERKELALE 


MILLIE LLLL LLL ELLLLLL LEE CULL bbc cca 
TEST 62 WRITE DATA 


WRITE CYLINDER 0, FORMAT 16 BITS PER WORD 
TRACK 0, SECTOR KEYS 0, NUMBER OF WORDS 256 OF 377 
ANY ERROR LOGIC INDICATION IS NOT CONCLUSIVE ON FIRST PA 
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED 

KLE 6 FREER ALEK AEH ELH HL KLEE KE LE EEE EEL KKK KKK KEK ALK LLHEHELE 


JEHHHHB HEHEHE BEEBE HEHEHE EHH HHH 
TEST 63 READ DATA 


READ CYLINDERO, FORMAT 16 BITS PER WORD 
TRACKO, SECTOR 1, KEYS 0, 10 WORDS OF 177400 


ANY ERROR LOGIC INDICATION IS NOT CONCLUSIVE 
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST P 


RRRELLLLLLARERE REAL RALRAKAAREAE LALA LALALEL ALARA ELAR AAA ALAAALALE 


JE EHHE HEEB HHH HHI HEHEHE 
TEST 64 WRITE CHECK HEADER AND DATA 


WRITE CHECK CYLINDER 0, FORMAT 16 BITS PER WORD 
TRACK 1, SECTOR 1 
ANY E LOGIC 


NLY I H 
RELALKRLL ELLE LLE REAR LEELA EERE REAR REAR ELE E RELA LEELA RRA RA EL AEE 
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JEBHEE EH EEHHEHETHHTHEHHHEE  EEE 
TEST 65 WRITE CHECK DATA 


WRITE CHECK DATA one ce Agel 16 BITS PER WORD 


TRACK | SECTOR. ORDS OF DATA 
ANY Device LOGIC tenn mNbrea7 TONS ARE NOT CONCLUSIVE ON 
BECAUSE ERROR LOGIC HAS NOT YE ON FIRST PASS) BEEN CHE 


ONLY RH WRITE CHECK ERROR IS TES 
JE EE eee 


JESSE EEE EEE EEE EE 
TEST 66 ATTENTION WITH ERROR TEST 


nis TESTS THE SETTING OF ATA BIT BOTH IN THE RHAS 

AND THE RHDS1 REGISTERS WITH THE SETTING OF EACH 

ERROR BIT ON THE THREE ERROR REGISTERS. 

IN EACH OF THE ABOVE CASES ERR IN RHDS1 SHOULD 

piri HOULD CLEAR ERR, ATA IN RHDS1 AND RHAS BUT NOT ERR 

PUTTING “1” IN RHAS DRIVE an CLEARS DRIVE BIT IN A 

UPPER BYTE OF RHAS IS INVALIBD 
JEHHESHHEEHEEHEHEEHHEHHHHHEHHIHEEHEEHHEHHEE 


JX HHE HHH BHE BE HHEH EH EHHEHHEHHHEEHHHEHHEEEEEEE 
TEST 67 BUS ADDRESS INHIBIT 


AD CYLINDERO, FORMAT 16 ne PER WORD 
INHIBIT SET 
ANY ERROR tocic. INDICATION IS NOT CONCLUSIVE ON FIRST PA 
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST P 
JET H EHH 


JE BEE EH HEEB HEE EE 
TEST 70 RHCS2 - BIT # 11 - NEM 


D CYLINDERO, FORMAT 16 BITS PER WORD 


ef Bone art Ais ADORESS RRHIBIT SET 


BUS S USED IS 760000 THIS IS ALWAYS NON EXISTANT 
THIS POHOULB SET NEM 


JH HHH HHH HHH HEHEHE RRR 


SESE EERE EEE EEE EEE EE EEE EAE EEE EE EEE EE EEE 
TEST 71 WRITE CHECK ERROR 


er  eeeee—e——————e——EeEeEeEeEeeEeEeEeEeEeEeEeEeEeEeEeEeEEeeeEeEeEeeEeEEeeEeEeEeEeEeEEeEeEeEeEeEeEeEeE~EEeeeeoeeEeEeEeEEEEEeEEeeeeee 
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WRITE CHECK DATA, CYLINDER 0 FORMAT 16 BITS PER WORD 
TRACK 1, SECTOR 1, KEYS 0, 32 WORDS OF DATA 

FIFTH WORD IS BuANIGED ON OISK TO GIVE WRITE CHECK ERROR 
ANY DEVIC E LOGIC ERROR INDICATIONS ARE NOT CONCLUSIVE 


ON FIRS 
BECAUSE ERROR LOGIC HAS NOT YET BEEN CHECKED 
ONLY RH WRITE CHECK ERROR IS TESTED 


FERLALELELLLAK EK EERE RELA ALEE ERE REEL EEE ELE RELERERE AREER REEL E REL 


Coa ree rt ye Hae oe cama 
TEST 72 ERROR REGISTER 1 gd be FORMAT _ ERROR 
He SIMULATED DISK 1S FILLED WITH OE er O TRACK 1 
SECTOR 0 FORNAT=I8 BITS PER WORD AND 4 WORDS 


OF 125252, A READ HEADER AND DATA COMMAND IS GIVEN WITH 
PER WORD FORMAT, FER=BIT4 SHOULD SET BUT THE 
READ SHOULD BE COMPLETE . 


RELKLKLALA ALARA RAEKE LAL RELEL LA LAL ERE RERERER ELE REEL EREEELE ELLE 


JE E HHH HEE HEE HEE EEE EEE EEE 
TEST 73 ERROR REGISTER #1-BIT 4 -FORMAT ERROR 


' THE SIMULATED DISK HEADER IS FILLED WITH CYLINDER O 
TRACK_O, sein O FORMAT 18 BITS PER WORD 
A WRITE DATA COMMAND IS GIVEN WITH SAME HEADER 

- EXCEPT FORMAT BIT. THE DATA SHOULD NOT BE WRITTEN. 


JETER EE 
ERROR REGISTER #01 (RHERI) TEST 
BIT #1 (ILLEGAL REGISTER) CANNOT BE TESTED ON POP11 THIS 
IS FOR POP1O USE ONL 


HER EIR EEE RE EI RHEE EEE ER EEE EERIE EE EEE EERE EE 
TEST 74 TEST ILF BIT #0 IN REG. RHERI 


ILLEGAL FUNCTION SHOULD SET ATA,ERR, ILF 
A GO WITHOUT CLEARING ERR SHOULD SET MXF,DLT, TRE 


RRKRLLLALLL ALARA RERAL LALLA ARERR ERE LER ARA ALLA KA REA RRALERE RAL LLALE 


JE HEHEHE HHEE HEHEHE HEHEHE HEHEHE EEE 
TEST 75 RHERI~ BIT #2 - REG. MODIFICATION. REFUSED 


IN THIS TEST THE REGISTERS ARE IN TWO GROUPS 
FIRST = RHCS1,RH DST, RHOF RHCA, RHERI RHER2,RHERS - SETS R 
SECOND - RHMR,RHAS - DOES NOT SET RMR 

IF WRITING IS’ RT TENPTED BURING: aN OPERATION 


ONLY ONE REGISTER IS WRITTEN INTO THAT IS RHCA 
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CR ee te on nee 


6545 
6631 


6646 


6649 


6658 
6715 


6731 


6734 


6743 
6798 


6816 





: rey E HERDER Aho Data TS AR TREES IN “REINTO” BUFFER 


ATTEMPT IS MADE WRITE INTO REGISTERS 
4 ALL REGISTERS RE” COMPARED 


LELLLFLALALELAELLLLLELALELELAAE AS RALE LE LLL ALELELLESELAELELELEEE 
RKAELLELAE KRESS LLLFLLALLAALLAALAELLELARELELELERE ALLA ERALALELALE 
TEST 76 MAKE CURRENT CYLINDER = 

PSSTeTTeTETTeTrTertrerettirttititi ttt t ti ti ttt TTT TTT tT tie 


Se HEHE AEE EE Se AE SE SEE EE HEE EA EE EEE EEE EEA EE EEE EEE EEE EE 
TEST 77 ERROR REG1 - BIT #7 - HEADER COMPARE ERROR 


THE SIMULATED DISK IS SET TO READ ¢ CYLINDER=0, TRACK=1 
SECTOR=1, KEYS=1, 256 WORDS OF 177400 
BREAD HEADER AND BATA COMRAND 16 GIVEN TO READ 


CYLINDER=1, TRACK=1, SECTOR=1, KEYI=1, KEY2=1 
REINTO BUFFER IS FILLED WITH 0 
WRERON IS FILLED wl 


x 
8 
x 
az 
Pes 


AFTER EXPE 
HAVE WHAT 1S IN URFROM — 10000°401-1°1 AND ALL 177400 
SRLSEKELARSE SKE LEASE LALLA SLLEZLER NAKA REALS RE KT HRA LHE LE ELEL LEE KLE 
SRESTE ESSE SESLE RSE PLES SELEFSRASREREEELHRESSAESSSKS SE LSSL GA LESER 
TEST 1 MAK CYLINDER = 0 
KLLLEEARAFSLLLAELAELELALALARELAEALERSLEEEEREAELEEAESLLS REL ERAAELES 


Se AE A SEE EEE RE EE AE EE SE ESE EAE SESE AE SEA EE AEE ESE EE AEE EEE EEE EEE 
TEST 101 REG] - BIT 87 - HEADER COMPARE ERROR 


THE SIMULAT + ag IS SET TO READ CYLINDER=0, TRACK=1 
eee 1 


ALL 177400 
AFTER READ THE REINTO BUFFER {tS EXPECTED TO 
HAVE WHAT IS IN WRFROM - 10000,401,1,1 AND ALL 177400 


KELALLAAAALALLLALA KELL LE LAARERRALRLLEL LLL E LEE SE LE LHELELALLREEE 
TEST 102 MAE CURRENT CYLINER 2 1S eee 
JHE HHH HHH HHH HHH HHH 


9 0 96 9 4 9 A EE HEA AE EE HAE REE EERE 
EST 103 ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 
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268 
1269 £819 THE SIMULATED DISK I F 
lev SECTOR=1, KEYS=1, 256 WORDS OF. ! 

A_WR WRITE CYLINOER=! 


-1-@+ 


1 6828 FLEES ELELRALALELL LEAL LER ELELALEAAL ALLELE REERELALLERLA ELS LEERELEE 


1280 6882 LLFERELLELELELELALLELELLELLELLALLLELEL SELL LLLLLELELELELLELELELSE 


1281 TEST 104 I . 
1282 JHHHHHHHEHHHHHHEHHHE HEHEHE HEE Eee 


1284 CSS7 AEH HES aE HEHEHE SE ESE ESE EE EE ER HE EE EER EE EEE REE EEE 
1285 TEST 105 ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 


1287 6500 THe SIMULATED bis I> IS SET UP FOR CYLINDER=0, TRACK=1 
SECTOR=1, KEYS=1, 256 WORDS OF 1 

8 rt AY ‘bata Zohan IS GIVEN YO WRITE CYLINDER=0 

TRACK ec TORS 


2 
a 
4 
ui 
% 


00 
AFTER THE WRITE COMMAND THE DISK IS EXPECTED TO 
HAVE 177400 


6909 FRELLLLALLLA LALLA ELLAAELERERELALAAALALLLE RELA LELALLAELEELZEZE 


CSED = RRA RAE K AREER EEE EEE REE A EERE AREA EEE EERE REELS 
TEST 106 ERROR REG.1 - BIT #8 - CRC ERROR 


6963 THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1 
SECTOR=1, KEYS= 


net 


WORDS OF 177400 
A READ HEADER A COMMAND IS GIVEN TO READ 


CYLINDER s CTOR=1, KEY1=1, KEY2=1 
Bote Pe PN Ruri ta 11 a0 a srr 
RHE READ THE RE THTO BUFF 12’ depecteD 
HAVE WHAT IS IN WRFROM — 10000 401-161 AMO PLL 77400 
6972 HESELEL ELS ERSTE REKERESERARESK ERLE SES RALAE ESS SAS EAS RSSRSEER SER 


eiisitiein sien eet eat 


ZOE = ARM HEARSE AEA AEE HEHE AE HEHE EE ERR EEE EEE EREEE 
EST 107 ERROR REG.1 - BIT #8 - CRC ERROR 


SECTORS, KEY TSeLy Bee WORDS SET TO Pe a in TRACK=1 


Bara conn COMMAND IS GIVEN TO READ 
Cy READ HEADER Ree mi KEY1=1, KEY2=1 
NTO ER IS F WITH 0 


TER THE READ THE REINTO BUFFER 18° EXPECTED To. 
VE WHAT IS IN WRFROM = 10000,401,1,1 AND ALL 177400 


WWW GIG) 
a 0 02 (2 bs 2 he Bs pe 


2 0 ae ps Bs Bw Bs be fn ae bn Bn Be aw Pe Bae Pe He hae ha ne ene Hs Fae -s Ge Pos Pn he Pes Pe ns Pn nw Hens 
MOONOW£ WIC) 
ra 


RES 
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7164 


7173 
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7246 
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7348 


7351 
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SESSA ESE SEE SESE AEE SESE EE SEE SEER EE SEE AR EEE EE EE 


Spassangeenednnn pe sssencenetangeusgnennecerece.sennaneenenenns 
TEST 110 ERROR REG. CRC ERROR 


- BIT 6 - 
THE SIMULATED DISK IS SET UP FOR CYLINDER=0, TRACK=1 
CTOR=1, KEYS=1, 256 WORDS OF 1 
WRITE BAT 1S GIVEN TO WRITE CYLINDER=0 


NEFRON: auPFER Te: F 1eeh a WiTH Nr |Sees2 
REINTO BUFFER IS FILLED WITH 177400 


AFTER THE WRITE COMMAND THE DISK IS EXPECTED TO 
HAVE 177400 . 
KLKRRLLALLALELKALARALRAAELALALERL LALA LALLALLAAARALELLAAL ALE LEES 


ESE SESE EE ES 9 J ES EE 
TEST 111 ERROR REG.1 - BIT #8 - CRC ERROR 


DE SUMTER DISCS BU FOE yee, rece 


A COMMAND IS GIVEN TO Rite CYLINDER=0 
Tebckzi, ecrORat KEYi=I KE 


TE COMMAND THE osk 3 EXPECTED TO 


KHELEKAKELAS LS EKES ES LA LETHE FERS RE RLS ERASER ELHEEK KSEE ERS HLS HEE 
ELEMEK SLL KEKEEREL LHS EELS ESHSRLASRZRSZARREEESHESSHER SLE SSSES HEE 
TEST 11 CURRENT CYLINDER = 410. 
ELE KS RE ERLE RHEE SESS RERR EELS EES SRS EES SEEMS EHS EREE EMER ERS RSRSEE 
HFSEXKELERAELRERF LL KEKE RE KEKE SRPERMRSLLHSLA PERE 
RHDS1 - BIT # 410 | LAST. SECT OR T TRANSFERRED 
WRITE CYLINDER 41 ORMAT 16 BITS PER WORD 
TRACK 1 CTOR 2l., KEYS 0, NUMBER OF WORDS 


Fae # 10 RHDS1 SHOULD SET AFTER WRITE 
IS COMPLETE. 


LLELELLELLL LAE RERE LEA REAAARAA AREAL LE LE ALLE LAAA LALA REEL ARERR ES 


iiitiiitiiceiiciiceiietireticeiieticetietiertitiitttitt ities 
TEST 114 ERROR REGISTER 1 - BIT #9 ADE 


A WRITE DATA COMMAND IS GIVEN TO CYLINDER 410 
RORD COUNT REGISTER FOR 36% coseeeee 

COUNT REGISTER F (256+66+4) WORDS 
AFTER 256 WORDS HAVE BEEN WRITTEN 
ADE COME UP 
RHWC WILL SHOW 4 BECAUSE THE SILO IS 6& WORDS AND 








ee ee a en re a re ee re a ee ag 


| MAINDEC-11-DERPS-B MACYIL 27(722) O8-OCT-76 11:10 PAGE 33 
DERPSB. Pil 


1380 





MAINDEC-11-DERPS-8 MACYL1 €7(732) O8-OCT-76 11:10 PAGE 34 
DERPSB.P11 
1381 MAINDEC~11-DERPS-B 
1382 
1383 
13d 
1388 7361 
ie, - 
ie 
1390 
1391 
1392 7507 
1393 
1394 
1395 7510 
13% 
1232 
eS 
1400 
tage 7817 
iss 
1404 7613 
1405 
1406 
1407 7616 
1408 
1409 
1410 
1411 
14le 
1413 
1414 
1415 
141] 7625 
141 
inte 7726 
i 
1421 7729 
l4ee 
1423 
1424 
1425 
1427 
1428 
1429 
1430 
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256 WORDS HAVE BEEN WRITTEN - TOTAL 322 
THIS IS 4 SHORT OF 326 


ELLEKKKKEALLLLLL LALLS RARER ERALALLLLL LALELEELEELELELALLAALEE RSLS 
SEVEEEAUESEAENESSSOSESSRSAERESSESSESSESSEEOEEREEEREEEEDEEOORE 
JAHHHE HEHEHE HHH SHHHH HUGH HEHE HHEB UU BBHEt 


JEHHHBEHHBEHSHBHIE HEHE HHH HEHEHE HHH 
TEST 116 ERROR REGISTER 1- BIT #10 IAE 


A READ HEADER AND DATA IS GIVEN TO TRACK 20 
SECTOR 0 


AN INDEX PULSE IS GIVEN TO GET RHLA TO 0 
IAE BIT SHOULD SET 
JHE HHH HHH HEE EEE 


JEM HEHEHE HEHEHE HEHE 
TEST 117 ERROR REGISTER 1- BIT #10 IAE 


A WRITE HEADER AND DATA IS GIVEN TO SECTOR 22 
TRACK 0 CYLINDER 0 


WORD COUNT IS SET TO 256. 
AN INDEX PULSE IS GIVEN TO GET RHLA TO O 
IAE BIT SHOULD SET 
JE HBIHHEHHHEHHHEHHB HHH HHH HEE HEHEHE Ht 


JE HHEHHHHEHHHEHHHHIEHHH HEHEHE HEHEHE 
TEST 120 ERROR REGISTER 1- BIT #10 IAE 


A WRITE DATA IS GIVEN TO SECTOR O 
TRACK O CYLINDER 411 


WORD COUNT IS SET TO 256. 
AN INDEX PULSE IS GIVEN TO GET RHLA TO O 
IAE BIT SHOULD SET 
9-0 9 3 9 9 A a EE EA EE 
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TEST 121 END OF 


7840 THIS IS THE END OF TEST FOR DRIVE 
IF THERE ARE MORE DRIV:S THEN THE PROGRAM 
JUMPS TO TEST S FOR NEXT DRIVE TEST 


END PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 
74S «963 3363 9696 9 9 SS EA EE Et 
RO 96 9 0 SEE ESE SEE EE 


JH UHHH HHH HHI HHH HEHE 
END OF PASS ROUTINE 


JEHHHHHBHEHHHEHHHEHHH HHI HHI Ht 
7884 = INCREMENT THE git ($PASS) 

TYPE care F nes nO (HERE XXXXX IS A DECIMAL NUMBER) 

F THERE ITOR GO T 

F THERE ISN'T JUMP TO TST 
“POT 1" * aa ange nee ees maces ener pian anid 
JHHHEHHHHHHIHHIHHHEHITHHHIHHHHHGHHHHHIHHIHIHHIHIEHHIEHEHIEHEE EEE 
JE HHHHHHHE HHH HEHEHE HEHEHE 
SAVE REGISTERS ROUTINE 
JHE HHIHHHHHHEHHHHHH HHH HIE HEIHHHIEHHIEHHEEEHEEEHE 
“7° NW) eget een geen meer an creme: 
JHHHHHHHHHIHHHHHHHHHGHH HEHEHE EHH EH 
“TI 5" eee eee 
JHHHHHHHIHEHHHHHGEHHHHIE HEHEHE HEE 
1"? creeper: 
JHHEHEHEHHBH HEHEHE HHHEEEIHIHIEHEIHE IEEE 
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7836 LFRLEREREAEERERELELL ELE RAELERES REL LAA SARE RE LEEAERELELES ELAR EES 
REALEA SELL ELAR RARA ERLE EEE AEEALLLLAL EAE EASE AER EREEERERELELA LEE 
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1477 

1478 JHHEHEHHHEHHHEHHHEEHHEHHHE HEHE HEHEHE et 
1479 8123 CLEAD DISK ROUTINE 

1480 JHE THEE HHH HEHEHE HHEE 


1482 JEM HHHHHEEHHHBHEEHHHBEHHHHE HEHEHE HEHEHE 
1483 8136 § CHECK DISK STATUS ROUTINE 
1484 JEHHHHHHHHHHH HEHE HHHHIEE HHH HE EE 


Hd 8263 et oa ee eae cee ee eee 
14 
18 LELAAAALLLLELELEELELLLLLAFLLLALE LE LELELELRLLLLAL LLL ALE LELLLAL ALLELE 


1490 JEBHHBHSHBHEHHHHEHHBHHHHHHHHHBHBHHHEHHHEE HEHEHE 
1491 8288 WRITE CHECK ROUTINE 
1492 JEHHHHHEHHHHHHHHHHHHHHHHEHHHHHHHHHHEHHHEEEHEEHEEE Et 


1494 33 3 J 3 9 a 
1495 8324 § COMPARE ROUTINE 
1496 3-3 EE 9 3 a 


1498 JEHHHHHHHHHHHHHHNHEHHHHHIHHHHHEHHHIHHIHEHHIHIHHIHEEEHEHEEHEEE 
1499 8414 CRC GENERATION ROUTI R 
1200 JEHHHHHHHHHHHHHHEHHHHBHHHHEHHHEEHHHHHHEHE HHH 


1206 9727 Maina CC. 
1504 FRERLLALLLSLEL LEE E RELERALALLALLEE ELLE LER EREERLLALE LLL E RELA LELELE 


ECe GENERARION AND COMPARISON ROUTINE ee 










GaN 


8764 ECC 
JHHHHHHHHHHHHHHHHHHHHHHHHBHHHHHHHHHHHHE HHH HEHEHE: 
JEBHHHHHEHHHBBEHEHHHHBHEHHHHHE HEHEHE HEHEHE 

9100 RH ROUT 


BASE S 
JEHHHHHHEBHHEHHHHHHEHHHEHHEHHHH HEHEHE 


9101 THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
ADDRESS FROM 176700 TO ANY TYPED VALUE 


= 02 pene 90 fae fae fe ae Gee 2 Pe Pee 


UIUTUTUONUTUT 
ee Se ee ee ee en 
ON £WMUHO 
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KLAAASAAALALA ALARA LLEAALE LEAR ALKA LELERAFLALA LA REAASEAAELERARERELAE 
9172 DISK SIMULATION 
PRLS LLL SLE LKR KEK ES LEA RHEE ELLE RESELLER SENS EEE E LSE L ESE REE NEE ERY 


9173 RKLLAREAEALLALALLA LA REL REAALELELA LALLA ALLL ELAREELELLL ALLA ALL ELE 
RERAAERRLA LARA LE RALLLAERLLALRLLALAEREAE REAL AAELELERELERELEER 


9319 KELELALLALLLALERAEELE ALLELE LLL ALE LAELRERELELELE EELS EELELALLES 
9341 REKKLALALA LALA LAAAAE RE LEEKLLLLALALLAEEREKERALA RELL LEREEAERAAES 


9348 RELERELALALE SEERA LAA RLEKLLELLLAL ALA LEAE RELA LE LE LALA LELELELELES 
KELALALLLLLLLALALEAEAKLERLLALA LLL ALLELE LELRERAAL LLL AER AERELLLESE 


$475 KELLLAAARALLL LA LELELEAELLALLLA LALA LA LLERERERELALA LALA LA RERELLLES 
RELRALLAFLLLALEL ELLE RERELLLLAL ALL ALLLRE RELA RELL EL RELL REREEELA SE 


9542 KELRELLALALLLALELKLELELLLLLLLL LE LE LLELELELALLE LLL ELE LELELELLEE 
KELEALLLLLALELLA LEELA LEK RLAALAL LALA LE RELELERLLELEL ELE RRELELELE 


9610 HKKKEKLLRARLLAE LEE RAALALEAALL LL LLE LE LE LELERELALL LAL LALELELELELE 
RELARERAKERALELLL ALLELE LAEARELALE LE LLL ELLE RELARE LLL ELE LAA ELLEEE 


9683 HELERLALAALAA ALE LALA RE LEARLALALA ALLE LEA E RARER LRAL ARERR ERE RREEE 
KELRERERALALLLALLL ALLELE LALLRLLALAL ALE LALLA RE RARA LAL ELE LERE REE 


9715 RLLAAALALL ALLELE LLRALE RELA LALEL LL AL AERA LALA LALLA LLL LLERERE 
ERAALLALE LEELA RA AELARELAE ELLA LAL ERA REA REE RELL LEELA ELE LEREAEEEE 


9832 eee terete este itt ttt itt itt t titi ttt ttt tres ttt tt ttt tt ttt 
peers itt t tt it tt ttt ttt ti tittttttttttitt titi ttt tt ttt 


O--2 $2 b= b= p< b= > ~> b= b< 6 = b= b= 6 = & 2 bb 9 = hh fh p= 


AERO ET Ae SSA R NO UI aU iin Kinase 


1S51 “s GO7G RRR AAA AREER REESE ER ERE E LEER EER EEES 
1552 JEBH HEHEHE EEE 
ee LOOES — HH IH HH HH EEE EEE EEE EEE EERE EERE 
ieee UME i tii iiiectiticcrr ii tere rs Pere es Pree ee reer rr irerg es ft eed so 
1ee8 r 10138 =. HHARRRRRRKKKAKARARERREREES 


JH HEHE HIGH Ea ea alate 





icaiecubuntcGbnimiinnananiat des - a ‘ 
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ELKALLAAAA LAL ALLE LALLA RELERE LE LALA LA REF AELELAALALLLAAEEERERLLLL LE 


SCOPE HANDLER ROUTINE 
JHE HEHEHE HHH EEE 


NOUNS AND LOAD THE TEST NURBERCSTSINN) INTO THE DISPLAY REG- (DISPLAY? 
AND LO SAD THE ERROR FLAG (ee ERFLG) INTO Cee 15:08 
THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
SW14=1 LOOP ON TEST 
zuis i pe ink BIERS TIONS 
SWOB=1 LOOP ON Fer IN SWR<7:0> 


SCOPE ;; SCOPE=I0T 
LOG 13 —_ HEHE SESE HEHE SEE SEE SESE SEERA EERE EEE EEE EERE 


JHB EHBEH HEHEHE HEHEHE EEE EEE 
CONVERT BINARY TO DECIMAL AND TYPE ROUT 
JEBEHHBHH HEHEHE HHH HEHEHE 


10217 THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIG 
SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER 
NUMBER IS PORLLIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE T 
BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS 
PLACED WITH SPACES. 


* mov. NUM, -CSP) ; PUT THE BINARY NUMBER ON THE S 
TYPDS :'60 10 THE ROUTINE 


1OCB1 «—«-- RH HAHAHA AAA AAA RARE LEEK ERA RA REAR AA EL EARLE EERE RR ELE ELES 


Wm See 
RRLAAAELELLL LALA RARE LELE RA LAAALEAR RELA LLLA ARE RE REE RELA LERAAALARELE 


10285 ROUTINE TO TYPE ASCIZ eS a MESSAGE MUST TERMINATE WITH A O B 
THE ROUTINE WILL INSERT A NUMBER OF NULL ee ee AFTER A LINE 
NOTE1: S$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CH 
: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED 
NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


CALL: 
1) USING A TRAP INSTRUCTION 
TYPE »MESADR ;;MESADR IS FIRST ADDRESS OF AN 


OR 
TYPE 
MESADR 
2) USING | 8 yon IN TRET ION 
pe nes ;;PUSH PROCESSOR STATUS WORD ON 
TSR PC; STHPE ;;CALL_TYPE ROUT 
MESADDR ;;FIRST ADRESS OF MESSAGE 
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UOKVAM Tec tit ttt titi t ttt tt ttt ttt itt ttt tt tttttttttttttititttistttttts 


ERRELKRLA LE LL LE LA ARLE EREREREEELAEL ERE L ERE REE ELLER ELE LE RE REREREELE 
TTY INPUT ROUTINE 
REALLLLLERAAAREREEEKAREL LL LAA LALLA LER ERE LALLA ARAL ARAL ELEEERLRALEE 


10368 TK INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
Mae THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


JSR PC, STKINT 
RETURN 


10385 TK SERVICE ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
BY tata at FROM THE INPUT BUFFER AND PUTTING 


IT IN THE 
IF THE CHARACTER IS A “CONTROL-C™ (tC) STKINT 1308 me AND 
UPON RETURN EXIT IS MAKE TO THE “CONTROL-C™ RE RESS (OPE 


LOY LL — RESHMA EAE EERE EEE EEE 
lg ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ROCHR ;3GET_A CHARACTER FROM THE QUEUE 
RETURN HERE CHARACTER IS ON THE STACK 
PEWITH PARITY BIT STRIPPED OFF 


10432 se eiriis+-ait tek “i-th 
nas ROUTINE WILL INPUT A STRING FROM THE T 


ROLIN ssINPUT_A STRING FROM THE TTY 
RETURN HERE SZADDRESS OF FIRST CHARACTER WIL 
:; TERMINATOR WILL BE A BYTE OF A 


LOYER «—§-_- HHA AAA ARA AAA K ERR ARR RAAK ER ERAS RL RARE EER ELELEE 


RLLALLLLLA LALA RELA LLLALLLL LALLA LALLA ERA ERELLALL LALA LL ALERAALALE 


READ AN OCTAL NUMBER FROM THE TTY 
JEHHHHHEHHH HEHEHE HABE EHHE HEHEHE HEE HHEE 


10472 nis WTS OWT ING iL fiom READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


THE INPUT CHAR AACTERS WILL BE CHECKED TQ INSURED THEY ARE LEGAL 
OCTAL pels, IF AN ILLEGAL CHARACTER IS READ A “?" WILL BE TYPE 
FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUS 
THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RE 


RDOCT ;READ AN OCTAL NUMBER 
RETURN HERE LOW ORDER. BITS ARE ON TOP OF T 
i ;;HIGH ORDER BITS ARE IN SHIOCT 
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MSMMTIIOCULICLUCiLiiiitititiiiceeecereriitiiiiiiiiitiiececeteetes, 
JES E IIE 
ERROR HANDLER ROUTINE 

333 ETT IEE 


10526 THIS oe WILL_ INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
ave RROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


AN Q SERRTYP 
ot ae oe PROVIDED BY THIS ROUTINE ARE: 
SWi3=1 INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
SWO9=1 LOOP ON ERROR 
ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
LOSES —«-_- HHH ARERR EK AEE EERE SEER EEE AEE EEE EE AR ERE 
JE HHH EE HEHEHE EEE HEHEHE HEHEHE 
ERROR MESSAGE TYPEOUT ROUTINE 
JHB HEHEHE THEE EEE 
10572 THIS ROUTINE USES THE “ITEM CONTROL AL (SITEMB) TO DETERMINE 
ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” 
AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


LOECS —«- HHH HAA A A AEE EK HERE EA EERE EEE EE EE EEE REALE RENEE 
RRERAKELLALA LAER ARE REREEREEALERA LALLA ARERR ARERR REEL AERLEEERELE 





LKKEKLLAL ALA LAELE LLL RE REE LE RERELE LALA LALA LEELA RRREL LEA ERR LER E REESE 
BINARY TO OCTAL (ASCII) AND TYPE 
REKAKALALLARELEREAE LEE LELELELALE LE LAL E ERLE E RARE RARER LALA LE RA ZELE 


10630 THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIG 
OCTAL (ASCII) NUMBER_AND TYPE IT. 
ant Puse=-ETER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 


MOV. ‘NUM, -(SP) ; sNUNBER TO BE TYPED 

TYPOS t:CALL FOR TYPEOUT 

BYTE ON ::N=1 TO 6 FOR NUMBER OF DIGITS 
‘BYTE oM r3M=1 0 


RO 
+O SSUPP LEADING ZEROS 
=SUPPRESS LEADING ZER 


STYPON-~--ENTER HERE TO TYPE OUT WITH ne SAME PARAMETERS AS THE 
Nea OR STYPOC 


“MOV. —sNUM, (SP) ;;NUMBER TO BE TYPED 
TYPON ;3CALL FOR TYPEOUT 


t STYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
“MOV NUM, =(SP) ;;NUMBER TO BE TYPED 
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DERPSS.Pi2 


ives 


MACY] EF i732) 


08-OCT-76 


11:10 


PRGE 41 


BO4 





















ee MAINDEC-i1-DERPS-B DECOCC VER (00.04 
1729 TYPOC ;;CALL FOR TYPEOUT 


a 
\7 
1732 
1733 BEFEEREEISIFESI ERED EEE SEES EEL OEEEDEEDERE ESE SESSERESESSELEE AEE SESE 
1734 10708 TRAP DECODER 
1735 PESSEEPFELER RE LERE EE ESAS ESE FSERESSEREPAS SESE SERS EE LESLSSESESESEEE 


oy 


10704 «—§«-- RHA HERAAE RAE R LSE RSE SE SREREA LEAR SEA SEALE LES AALS SERS RESESELS 


~ 


i736 


1737 10708 THIS ROUTING WILL PICKUP THE LOWER BYTE OF THE “TRAP INSTRUCTIO 
238 AND USE IT TO ier THROUGH THE TRAP TABLE FOR THE STARTING ADDR 

1736 OF THE DESIRED A OUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

oat GO TO THAT ROUTINE. 

1742 ESE EEE SE AR SEPA EAR AEA Ee EEE EEE EAE HE EEE EE EEE EEE 

1743 10721 TRAP TABLE 

1744 AE AES eS AE SEA Sk AE AR SE EEE SEE EEE EAE EE EEE EEE EEE EEE 


1745 
10723 THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLE 
BY THE “TRAP” INSTRUCTION. 


L743 =A A SRSA HEHE HEHE HEE AEE EEE EEE SELLE 

Se EE SE SESE EA AE A EAE EE AE AEE AEE EERE EEE EERE EEL EEEE EE 
10745 POWER DOWN AND UP ROUTINES 

EEE SE ES SE SE EEE EAE AEE EA Ae EE HE EEE EEE 


LO7ES «-- HHA ASS AA ERRAA RSS ARE AAAS AA RSE REALE LHASA SAAR ELLA SESSA ESE RELEE 
SHERFSRASLESLELLL LEELA REEL E SLES AA SAA LESS LALELALE SELES ELAS ESLELELES 


slalhddge a? 
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t 

| 


— —o . ~ . oa ae een ae ene ee omneweee: 


ee te 8 ee ee eee re eee oe 


a ee + ew 0 ere nee eae ee Ot eee 


cid 


a 
g; 


SR ERAS RARE v4 


SEIRREGR CS SERN LOR See SRE OR 


mod 
et oe 
twr-O 


daeadd g 
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- TITLE HAINOEC-1 1-DERPS-B 
; #COPYRIGHT 1975 

sxD1GL TAL EQUIPMENT CORP. 
SAEIYNARD, MASS. 01754 


 SPROGRAR BY SUB MALLICK 
aa PROGRAM MeL ED USING THE POP-11 MAINDEC SYSMAC 
;#PACKAGE (MAINDE aie 2QAC-CO), MAR 21, 1976. 


Sart. OPERATIONAL SWITCH SETTINGS 


it SWITCH USE 

3% i= HALT ON 

# 14 LOOP ON TEST 

3% 13 INHIBIT ERROR TYPEOUTS 

# ll INHIBIT ITERATIONS 

3% 19 BELL ON ERROR 

i 3 LOOP ON 

:* 3 LOOP ON TEST IN SWR<7:0> 

3% 7 STOP FURTHER COMPARES IF SWO8 IS LOW 

° & ECC TEST-COMPARE END RESULTS ONLY IF SWO8 IS LOW 


-SBTTL BASIC DEFINITIONS 
pert TiAl, ADDRESS OF THE STACK POINTER ### 1000 ### 





AcK= I 
“EQUIV EMT, ERROR s;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT, SCOPE ::BASIC DEFINITION OF SCOPE CALL 
- XMISCELLANEOUS DEFINITIONS 

T= i CODE FOR HORIZONTAL TAB 

LF= 1 CODE FOR LINE FEED 

CR= 15 FOR CARRIAGE RETURN 

CRLF= 200 FOR CARR AGE Fe lum-ine FEED 

PS= 177776 OCESSOR STATUS 
EQUIV PSW 

STKLMT= 1 Pore LIMIT REGISTER 

PIRQ= 177776 Rau NTERRUPT REQUEST REGISTER 

DSWR= ; 

DOISP= 177570 Maou e SCAY REGISTER 
-#GENERAL PURPOSE REGISTER h OF NITIONS 

AO= %0 REG 18 STER 

Ri= %1 GISTER 

= 8 Ra REC ER 

= %3 

R4= %4 Rat 

RS= 4S crema feclTEn 

R7= % aes f 

-EQUIV Rb, SP R Pot 
EQUIV R7,PC 








E04 






e ws 

perereer & 5 

SSSSSSES | “ 

SEEREEEEE © 
TF «SA cwsesccocesecase GS a 
eh eee = - 
y a 2 
et. b5 FE 2 
2 &§ — RAAAGADARA | : 
2 4 gea9 "eats 3 
. posieeese SEES Seae.c., SUSISTITT -BSceeRBeRBone © 
As 3 = >>> >>>>>>> @ Ad “u> 
S Fnununnnn ataed ass ee SSSsssasss Emeceacessseesscss 
S Eeeeere Ragga 33 SSScSS80eS SSpCoeoooomneme 
o 
S 
fe 
i Bees Sean Spa ciecneescece 


OE Gd Oh OF OF 8 8 Od 8 9 9 4 04 0 4 OF 0-4 4 4 9 4 4 4 ww HOG ton Kam hem Kae Loon Reet eee Kom foe en Kam hee oe Kem hem hen beh hee em hem hee hee hee hee} 


ap ee ae an au een aeu na eeeeee eee cece ae 
e i 


em a nn a ne ee ee 
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Pll BASIC DEFINI TLONS 


1869 .EQUIV BITO8,BIT8 
1870 -EQUIV BITO7,81T7 
1871 EQUIV BIT06,B1T6 
1872 EQUIV BITOS;BITS 
1873 EQUIV BITOY;BITY 
Bee EQUIV Bite’ BITs 
ig Eouty BOT BET 
1877 EQUIV BITO0,B1TO 
1879 *BASIC “CPU” TRAP VECTOR ,AooRES 
1880 900004 EC= 4 TIME OU Sano OTHER ERRORS 
1881. 990010 SVEC= 10 {RESERVED AND ILLEGAL INSTRUCTIONS 
1882 900014 T TTvEC=14 {it sl 
1 000014 TRTVEC= 1 : TRAC 
iBee 29 POTVEGe 5 +18 SUT OL NpuT TRAP OT) xESCOPER® 
2 aneerne = 

rs Es aa 
: ENTVEC= 30 ; SEMULATOR_ TR (EMT) ##ERRORE# 
ise Bpooeo TKVEC= 60 >: TTY KEYBOARD VECTOR 
1890 000064 TPVEC= 6&4 *: TTY PRINTER VECTOR 
189 00024 PIRQVEC=240 ::PROGRAM INTERRUPT REQUEST VECTOR 
1833 .SBTTL TRAP CATCHER 
ieee soars ep LOCATIONS FR AIN A ”.+2,HALT” 
ies HOLL, UNISED CATCH fOrP ECA TRAPS INTERRUPTS 
1838 ler jHLOCATION 9. CONTAINS 0 TO cance IMPROPERLY LOADED VECTORS 
1900 000174 d00000 DISPREG: .WORD : ; SOFTWARE Y REGISTER 
1901 000176 000000 G: _.WORD : SOFTWARE Matt REGISTER 
1902 -SBTTL STARTING ADDRESS(ES) 
1903 ooo200 7 004216 IME BeBEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 
190s 000210 000137 oo04e06 IMP : s JUMP SELECT TEST 
1307 HiMiS. re Ope SS PaO, ON THE oeten A SINGLE DRIVE AT A TIME 
1909 S SSTARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 
1916 *SBTTL MEMORY MANAGEMENT DEFINITIONS 
iste ;#KT11 VECTOR ADDRESS 
1914 ooc2so MMVECs 250 
1318 #KT11 STATUS REGISTER ADDRESSES 
1918 177572 SRO= s:«177572 
191 177574 SRiz  9=-:177574_—C«; 

177576 Shes 177576 

172516 = 172516 ‘ 


;*KERNEL “I” PAGE DESCRIPTOR REGISTERS 


pias 
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BEADS Pit ne MANREHENT SEF Inr Fone 

1925 KIPDRO= 172300 
1926 KIPORI= 172302 
1927 KIPDR2= 1723 
1 KIPOR3= 
1 K = 
1 KTPDRS= 
1931 KIPDR6= 172314 
1932 KIPDR7= 172316 
1934 ;#KERNEL “I” PAGE ADDRESS REGISTERS 
1936 172340 » IPARC= 
1937 172342 KIPARI= 172342 
1938 172244 IPAR2= 17234 
1939 172346 KIPAR3= 172346 
1940 KIPARY= 172350 
1941 172352 KIPARS= 172 
igy 172354 KIPARb= 172354 
1343 172356 KIPAR7= 172 
1945 $3 LKAAASAERESELEASLEA LAA SRL SHAAAA ARAL LE LEE FEE LKLASALAAARASAFRALEFHRE 
1946 po004s = 
1947 O0004% O366S2 
1948 poonce = 
1949 o090S2 940000 40090 

| 1950 001110 Z 

{ 





a 
~ 


rurororu 


eee 
or c£MVo 


1 
1 
1983 
1954 
1955 
1967 
= poe 
On 
i oe 
iSee Baligs 
1 001106 
1964 pote 
1965 O0llle 
1966 001114 
198 OOL1ie 
1969 Bol 128 
1970 O0llee 
1971 001124 
1973 O11 
Be 
1378 OOllss 
1re ated 
oO 
1378 Oollve 
1980 001144 
1981 001146 
1982 001150 
1983 i tbted 
1984 001154 
1968 OOLise 
ue 
1989 
1990 001162 
1991 001164 
1992 001166 
1993 001170 
1999 001172 
1995 ete 
1996 001176 
1998 Qolete 
Of 
19% Doleos 
D0 1 
001 
O01 
001 
pl 
1 
001 


BBEReE 


SB 


MAINDEC-11-DERF 
Pll 


'S-8 





ane 


Lo] 
— 
rm 
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COMMON TAGS 






.SBTTL COMMON TAGS 

$3 REEAAHSLEAARALRAAAE SELLA AAAAAAAELERALAAALELELALAELEAF LALLA RFEAE 
*&THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

s#USED IN THE PROGRAM. 


=1100 







scree + ONTAINS PASS COUNT” 
sist ‘erie contains a 18S) Nurser 
Senge FORD : 3 onTatne ERR E ST ITERATION COUNT 
SPER: “WORD TO NTRINe. SEOPE RETURN ron ERRORS 
foe ee Sais Teer pee 
SEnnax: ‘EVIE I SERONTAING AX, ERRORS PER TEST 
oo eet EaNTals booked" ae Foo “banaeo 
SBDADR: -HORD 0 js CONTAINS ADORESS OF *BAD’ DATA 
SGDDAT: . 0 CONTAINS *GOOD’ DATA 
SBDDAT: :.WORD 0 :;CONTAINS "BAD’ DATA 

Hone ne a 
STNTaes “EVIE 6 tT TNTCRRUPT NODE ENDICATOR 
BicbLay: “aor Bbc tS PDORESS OF BISPLAY REGISTER 
STKS: 177560 :TTY KBD STATUS 
STKB: 177562 2: TTY BUFFER 
STP: 177564 >: TTY PRINTER STA REG. ADDRESS 
STPB: 177566 :: TTY PRINTER G. ADDRESS 
sete. “Eve 8 STO ONTRING RUDE FILLER EtiaRoc TERS: REQUIRED 

ILLC: -BYTE fe ;;INSERT FI . AFTER A “LINE F 
SrPELE: : i 33 MOEN INAL AVET FLAG (BIT 7) SHEYES) 
SREGAD: .WORD 0 * CONTAINS THE RODRESS FROM 
s;WHICH (SREGO) TAINED 

SREGO: .WORD O CONTAINS ((S$REGAD)+0) 
seas: ony STR OMTRING. (Leneaap 24) 
ore eg: “WORD OO s CONTAINS {(SRECAD 4B) 
SREGH: .WORD O >;CONTAINS ((S$REGAD)+10) 
Sapo; “WoRD O bttOeR DLFIND Se 
STNPL: “WORD O $3 DEFINED 
Sines; “WORD OD bt UeER DEFINED 
STMPY: WORD : 3 ;USER DEFINED 
eT 6: er be iaRe Ne or ITERATIONS 
Seto ccrz «207>«377«377) tikebe FOR BE 
SoUES: Bectt 197 _ $3QUESTION MARK 
SCRLF: ASCII <1S> : CARRIAGE RETURN 
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SLF: eASCIZ <1e> 


NE FEED 
SLU DeRanaSSAaHES EE EEEESESEEEEEELE GE CHES TES HRESEREREEEREREDEEEEHE 





J 






001226 


Pa GAA CPEs eee ee eas ne asia sisi ispugi ts santa 


ee ewe es 
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061463 


063172 
063463 


053771 
061240 
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-SBTTL ERROR POINTER TABLE 


s#THIS Le A CONTAINS THE INFORMATION re EACH ar THAT CAN OCCUR. 
;*#THE INFORMATION 15 OBTAINED BY reed attr X_ NUMBER FOUND IN 

; #LOCATION oer, ie NUMBER ATES WHICH iTen IN THE TABLE IS PERTINENT. 
; #NOTEL: MB IS O THE ONLY PERTINENT DATA IS (SERRPC). 

; ¥NOTE2: Ach ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;# EM ; ss DOINT? TO THE ERROR MESSAGE 
3% DH POINTS TO THE hel HEADER 
;* DT t EPOINT 1 THE para 

3* OF ;;POINTS TO THE DATA FORMAT 
SERRTB 


5 RELEASE RE LELALALAAAE A ERLLERAAAL ALES RELA RARLLL EEL LLE LE RLE LAL ELE LAE LEE 


sITEML 
; WRONG DATA IN READING OR WRITING HARDWARE REGISTER 
REG. ADDR. 
GOOD DATA 
*RECEIVED DATA 
OT : SERRPC, REGADR, SGDDAT, SBDDAT 
OF 1 :0,0,0,0,0 


; ITEM2 
;ERROR ON DATA COMMAND 


DH33 ;PC 

3PC_OF JSR 
;TEST NO 
WORD NO. 


: DATA 
RONTERT NTS OF RHCS1 
CONTENTS OF RHDS! 


0133 PRR C crPataR, $TSti, ERUORD,SGDORT,CS1,DS1, ER 
DF33 :0,0,0,1,0 
; ITEMS 
EM2 sERROR ON DATA COMMAND 
DH32 :PC 
PC OF JSR 
iter NO 


ORD 
;GO0D DATA 









ee ett oer 
DERPSB.P 


g 


BURREEP RRR Gt Ct viiticl weNERPRRRALS: 


-8 


Turvrerorororururorunorororururorrurorn 


ee a te ae ae ne he be ee oe 
Siow Nou ew OSS Ear 





eSe 063146 
0634Se 


053771 
061036 


262 063124 
os 3442 


054020 
OSb6e2 
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OT32 
DF 32 


EMe 
DH31 









;BAD_DAT 

i BONTENTS OF RHCS! 
CONTENTS OF RHDS1 
CONTENTS OF RHERL 


wae PCJSR, STSTNM,ERWORD , SGDDAT, SBDDAT,CS1,0S51,ER1 


;0,0,0,1,0,0,0,0,0, ° 


;ERROR ON DATA COMMAND 


3PC 

s TEST NO 

3W NO. 

: GOOD DATA 

:B TA 
:CONTENTS OF RHCS1 
CONTENTS OF RHDS1 
: CONTENTS OF RHER1 


;SERRPC, STSTNM, ERWORD, SGDDAT, SBDDAT,CS1,DS1,ER1 
:0,0,1,0,0,0,0,0, 


 SERRPC STSTNM, ERWORD, SGDDAT, SBDDAT,CS1,DS1,ERL 


30,0,1,0,0,0,0,0, 


sERROR ON RITE HEADER AND DATA 
Pe OF JSR 

ITEST NO 

SWORD NO. 

;G000 Data 
CONTENTS OF Bubes 


;CONTENTS OF RHERI 


Tan ak PRIaR ASIST, ERWORD, SGDDAT, SBDDAT,CS1,0S1,ER1 


0,0,1,0,0,0,0,0, 


;ERROR ON WRITE HEADER AND DATA 


STEST NO 
;WORD NO. 





rurururururururoruroronororurorurnorurerurururoruroreroruroruruforurururorururorururururururorururorururoru 
ee ee ee ae te ae ae be ae me Be Bee ae Bn ee ae be ae an 2 0 fe be Be 0 ae be me me Be be hn be he be he mn fe Fs be ho ho = Os bh he 
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1 
eles 001312 
oo 


SSG LEHEGR SOG VRRLONK S55 NFH L5G SSSUKRZORHSSRVRRE 


Sola 
38 
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062546 


' 062702 
063345 
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;ITEMIC 


;ITEM11 


; ITEM12 





‘BRD DATA. 
; SERRPC, STSTNM, ERWORD, SGDDAT , SBDDAT 
;0,0,1,0,0, 


 SERRPC STSTNM, ERWORD, SGDDAT , SBDDAT 
:0,0,1,0,0, 


s EONTROLLER OR DRIVE STATUS 


jSERREC, STSTN ,» SBDADR,CS1,CS2,0S1,ER1 
0,0,0, 


;WRONG DATA FROM SILO 


;PC 
GOOD DATA 

RECEIVED DATA 

: SERRPC, REGADR, SGDDAT, SBDDAT 
:0,0,0,0 


; SERRPC, TSTNM, REGADR, SGDDAT, SBDDAT 
:0,0,0,0,0 


;REGISTER FAILED 

FAILING REG. ADOR 

s CONTENTS OF FAILING REG. 
Hr @ Bee 

SEONTENTS oF RHDS1 


OF RHER1 
:SERRPC, SBDADR, SEODAT, €S1,CS2,0S1,ER1 
:0,0,0,0,0,0,0° 


ee ee 














ee ee oe ee —— —-———— 
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4 § 


b= b= b= ps pe pe 


rurururururururururururorurururururofururuororu 


bH4 b-2 bs pt bY bo Bs Pe Bete he Re hh tp eb 


Bass 


Seapine 


en 


Tururorororurururorane 
Owe NOUS WHO 


eeel 


BOVFRLGO SSSBVERL Soo 


ERROR POINTER TABLE 


; ITEMIS 
054132 EMIS :SECIFIED REG. NON EXISTANT SO ABORT 
057326 DHIS iP 
‘ADDR. OF REG 
962724 OTIS : SERRPC, TEMP 
063355 OF 15 :0,0 
s ITEMIG 
054203 EMI6 ;WAIT LOOP FAILED 
057350 OH16 : PC 
‘WAT PC 
BIT WANTED 
REG. ADR. 
REG. CONT 
062732 DT16 :SERRPC, STMP3, STMP1, STMPO, SBDDAT 
063357 DF 16 :0,0,0,0 
; ITEM17 
os4224 EM17 sWRITE CHECK FAILING 
057467 DH17 iPC 
TEST NO 
CONTENTS OF RHBA 
CONTENTS OF RHDB 
CONTENTS OF RHWC 
:CONTENTS OF RHCS1 
CONTENTS OF RHCS2 
062746 0T17 :SERRPC, STSTNM, $8A,DB,WC,CS1,CS2 
063363 DF17 :0,0,0,0,0,0,0 
; ITEM20 
054250 REGISTER FAILING 
057652 DHeO ire 
CONTENT RHERL 
: CONTEN Nre OF BLE 
CONTENTS OF RHERS 
s CONTENTS OF 
‘CONTENTS OF RHDS1 
062766 oT20 :SERRPC, TSTNM ER1,ER2,ER3,AS,DS1 
063372 DFe0 :0,0,0,0,0,0,0 
; ITEM21 
054271 EM21 s INTERRUPT FAILING 
060026 DHel *PC 


Content OF RHCS1 
CONTENTS OF RHAS 
9 CONTENTS OF RHDS1 
063006 T21 : SERRPC, TSTNM, CS1,AS,DSL 
063401 Fel :0,0,0,0,0 
















a ata 
DERPSB.P11 


001436 


001440 


001442 


001444 
001446 


001450 
001452 
001454 
001456 


001460 


001462 
001464 
001466 


001470 


054312 


060147 


063022 
063406 


000000 


000900 


063022 


063406 


054706 


060246 


063034 
063412 


ossool 


060246 
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; ITEM22 


; ITEM23 
0 


;ITEM 24 
EMe4 


SECTOR CLOCK 
pT24 : SERRPC, DST, SBDDAT, STMP1, STMP2, STMPS 
OFe4 :0,0,0,0,0 
ITEM 25 
EM2eS sLOOK RHEAD REGISTER IS 
IN ERROR 
DH24 sPC 
* RHDST 
*BAD RHLA 
GOOD RHLA 
SECTOR NO 











EMee ;MISSMATCH IN DRIVE PRESENT 
; LOOKING AT are AND _RHCS2-NED(BIT#12) 

Rote Ay Be NOT AGREE 

ON DUAL PORT SYSTEM 
ON OTHER PORT WILL Lae give NED 


Soh HiLt Be Bison 3 


DH2e iP 
T NO 


ies 
sRHAS UNIT 
sRHCS2 UNIT 


DT22  SERRPC TSTNMS, SGDDAT, SBDDAT 
DF22 :0,0,0,0 


;MISSMATCH_IN DRIVE PRESENT 
LOOKING AT St AND _RHCS2-NED(BIT#12) 
DRIVE PRESENT DO NOT AG 
9 i127777-NEANS NOT PRESENT 
; 


TEST No F 
{RHAS_UNIT | f 
! 







;RHCS2 UNIT - 


pte  SERRPC, TSTNMS,, SGDDAT, SBODAT 
DFee2 30,0,0,0 













;LOOK AHEAD REGISTER AT THE 
i BEGINNING OF A SECTOR IS IN 


DHe4 RA 
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2289 SECTOR CLOCK 
2290 COl472 063034 oTe4 : SERRPC bet SBD0AT, STMP1, STMP2, STMPS 
2291 OO1474 O6341e2 eee OFe4 :0,0,0,0,0 ° 
BS 00i%76 OS4OS? EML1 ;CONTROLLER OR DRIVE STATUS 
001500 960404 DHE : 
£o96 PC OF JSR 
228 FAILING REGISTER ADDRESS 
2298 CON TENTS OF 
2299 SEONTENTS. OF RNCEE 
, :CONTENTS OF RHODS! 
e301 CONTENTS OF RHERL 
2303 001502 963052 OTe sSERRPC, PCJSR, SBDADR,CS1,CS2,051,ER! 
| 2304 O01504 063420 OF 26 :0,0,0,6,0,0, 
2305 
2306 
se ITEM27 
2503 001506 053706 EM! sERROR IN READING OR WRITING HARDWARE REGISTER 
2311 OO15:0 OSOSte DH2?7 :PC 
gig *PC OF JSR 
| esi TEST NUMBER 
14 *FAILING REGISTER 
| 2315 : TA 
gig *RECEIVED DATA 
| 5318 oosie DTe7 ; SERRPC, PCJSR, TSTNM, REGADR, SGDDAT , SBDDAT 
e213 001514 ae DF 27 :0,0,0,0,0,0 
| 2321 
23ee 
| Paes ; ITEM30 
| e3e4 O515i6 055041 EM30 sCURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG. 
| e325 001 060725 D420 iB aan 
sacs REGISTER ADDRESS 
2328 G000 DATA 
2329 ay *BAD DATA 
at 001522 063110 D730 ; SERRPC, PCJSR, REGADR, SGDDAT , SSDDAT 
eee 001524 062435 30 :0,0,0,0,0 
| 
ee 
| c ITEMS! 
001526 055163 EM31 sECC GENERATED IS INCORRECT P : 
| 2338 EVERY WORD IN THIS SECTOR IS GIVEN IN “DATA USED 
| 5350 001530 061674 DH34 
j 
| 


;WRITTEN ECC1 
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A EE A EE CCL | CCT 


Ae OS eee Reon eee eee 


e347 
34g 001832 063214 oT34 ;SERRPC, TSTNN, GECC1, GECC2, WECC1 , WECC2, DISK 
e350 001534 063473 OF34 :0,0,0,0,0,0,0 
2352 : 
2353 ; ITEM32 
e354 OO1S3E 055306 EN32 50N READ COMMAND AFTER DATA AND ECC HAVE BEEN READ 
2355 3 CC REGISTER OR RHERI IS IN ERROR 
2258 ; ONL Y LOWER 11 BITS OF PATTERN REGISTER 
2358 {THIS SHUOLD MATCH LOWER 11 BITS OF ECCI 
5320 o0S40 62047 DH3S : 
2361 : TEST NUMBER 
2362 GOOD ECC1 
2353 :G00D ECCe 
2364 :PATTERN REGISTER 
e265 :RHERI 
2367 O01S42 063234 DT35 ; SERRPC, TSTNM, GECC1, GECC2,EC2, ERI 
S329 DOISH4 063502 OF3S ;0,0,0,0,0,0 
2370 
2371 
2372 
2373 ; ITEN33 
e274 O04 os5572 EM33 ;HIGH COUNT BIT NOT HIGH AFTER 38859 CLOCKS 
2375 O01550 062243 DH36 
2376 :PC OF JSR 
2377 ‘TEST NUMBER 
2378 tRHMR 
2375 :POSITION REG. 
ae ‘PATTERN REGISTER 
guee OOISS2 062256 0T36 ; SERRPC, PCJSR, TSTNM, MR,EC1,EC2 
e304 OO1SSY 063512 OF 36 ;0,0,0,0,0,0 
5357 o01SS OSSEY4 TENS 34 TECT BIT NOT HIGH WHEN THE 
Eves Fe TT EEE REGISTER HAS TTS 1 BITS 
3390 + PRROR PRINTOUT WILL CONTINUE TILL 
2291 :ZERO DETECT BIT 1S HIGH 
ese ODISEO 062243 DH36 :PC 
:PC OF JSR 
22H sTEST NUMBER 
2395 
229 TION REG. 
2397 iB TERN REGISTER 
2299 O01Sb2 062256 0736 ; SERRPC, PCJSR, TSTNM, MR, EC1,EC2 








mn ee ee ee eee 





;WRITTEN ECCe 
DATA USED 
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DF 36 


s ITEMSS 
EM35 


DH37 


; ITEM37 


;0,9,0,0,5,0 





iPaTTERN BEGISTER OF OR 11 Lh ALTS OF 


¥ REGISTER INCORRE 
LOWER BiIS OF PATTERN REGISTER 
HOULD MATCH LOWER 11 BITS OF GOOD ECC1 


DATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL 


ECC PATTERN 
es ENVELOPE 
N-CODE ZEROS 
;SERRPC, TSTII,EC1,POSITI,GECC!, GECC2, EC2, DATENV, ZCODE 


;0,0,0,0,0,0,0,0,0 


;0N A READ COMMAND WITH NON CORRECTABLE 
; ERROR INSERTED DCK AND ECH SHOULD BE SET 


3PC 

; TEST NUMBER 

:GO0D ECCI 

;G00D ECCe 
sPATTERN REGISTER 
;POSITION REGISTER 
;RHERL 


;SERRPC, TSTNM, GECC1 ,GECC2,EC2,EC1,ER1 
;0,0,0,0,0,0,0 


oes S151, SBDADR, CS1,CS2,0S1, ERI 
:0,0,0,0,0 





——— a rs - - -—--- — ~~ <a a ae --~ -- ee eee ~-- ee ee es ee ee ee ee eee _ 
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s LELLEELLALE LEAS LAALE RARE LE LASALLE LAL LLALE RAE LALAEL LE SELL LE LEEES 


fury REGISTERS 


De 2 rs 9 mn amarante eaten 
: EACH BIT IS CALLED BY BIT NUMBER 


;BUS ADDRESS REGISTER (RHBA) 


;EACH BIT IS CALLED BY BI 


NUMBER 


;CONTROL AND STATUS REGISTER 2 (RHCS2) 


uSlz 1 UNIT SELECT (BIT #0) 
uSe= : ; sUNET SELECT (BIT #1) 

I= 10 } BN SS {ReRENENT INHIBIT (BIT #3) 
PAT= 20 s INVERT PARITY ON MASS BUS TO EVEN (BIT #4) 
CLR= 40 ‘CLEAR (BIT #5) 

IR= 100 : INPUT READY (BIT #6), 
= 6B : CUTS PARI ERROR (BIT #8) 
= 1000 ‘ *MISSED TRANSFER ERROR (BIT #9) 
= 000 PROGRAM ERROR (BIT #10) 

NEM= 4000 *NON EXISTANT MEMORY (BIT #11) 

NED= 19000 *NON EXISTANT DRIVE (BIT #12) 
= *UNIBUS PARITY (BIT #13) 

WeE= 40000 ‘WRITE CHECK ERROR (BIT #14) 

OLT= 100000 DATA LATE (BIT #15) 

;DATA BUFFER REGISTER (RHDB) 

: BIT IS CALLED BY BIT NUMBER 


RPOY REGISTERS 


;CONTROL AND STATUS 1 REGISTER. 


1 

00 
200 
4 
1 
0 
4000 


s LELELALAALELELLALLLELELSAELALLALALAL LE LALL RARE LA LALELAALLELLEAE 
5 RHERELAAALLELALE LALLA LRLLELLLLLELLALALAELELELLLALALLARE LEELA ELELE 


(#00) 

iO ERRUPTCENABLE (BIT #6) 
sREADY SBER ONTBUS TS (BIT #8) 
act R UNTBUe atte (BIT #9) 
:PORT Ss ECT (BIT #10) 

*DEVIC IL ( alt) 
*MASSBUSS PARITY ERROR (BIT #13) 








;SPECIAL CONDITION (BIT #15) 


; TRANSFER ERROR (BIT #14) 


GOS 


100000 


4U000 
;STATUS REGISTER (RHDS1) (#01) 
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TRE= 
SC= 
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ER TABLE 
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DERPSE. 


Pll 


-_- 
~™ 
aT 
at 
te 
— 
a 
— 
w 
: 
a 
a 
<= 


_ 
aS A 3 
—~ = rr 4 
osr- 2 as 
wet 
-o e- be 
HS MLD _ 
—m ms q -_ 
a~ ~ — ~wW 
~ - -“irFr- 
a on Cea ems BE 
Pt wan ~ = ra 
. ——_— 
Se 5 8o Sana, Str 
_ 
IN>™M bad ad 


SRSSaoS Rae Sew et 


oS OH CR OS OH CDOS EH OH EH ES CH OH ESSER ER 


eee 


2518 
2519 
2Se0 
eSe3 
ese4 
2SeS 
2530 
2531 
e532 
2$33 
2534 
2536 
2537 
2538 
2539 
2540 
es4l 
2s42 
2543 
es44 
es4s 





USED (BIT #2) 


T 
T 
OCK 
#4) 
aS 
DETECTED (BIT #9) 


et 


Pree ae 
4 


sERROR REGISTER #01 (RHER1) (#02) 
;MAINTAINABILITY REGISTER (RHMR) (#03) 


Ges 6 


ORCC RRRReRERNCR 





ar 


1 
4 


;ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 


ATO= 
ATl= 


oc000e 


i me re en a ee we 





HOS 


USsHo = japababababats f= == beim i=t=t= i= ot Baan one 
rorrer = 0 SESSEENN NN mz ee ee greets 
feslestesTesTosles) MUM Tio == 
—< a peastee = —— 
Reena Boome LT weiss titatatatate 
SSSsss K DOO ie 
Goma e  Becmeellll ee SEEEES 
cre os 3 
“ aoeSe ° : 
z Soties . 3 
Kj M) boa 

2 ssu8y g& : : 

os ow wm w onl 

e sane SEs our 29 SASS EEES Gus SRS SRS sHRSSEe 2 _cee 

S oe oo 00 08 08 88 cate Ley “ pAb eGESy es 0 are ‘ bt tueeee : 

5 SG2Ue anes CoE e EC aieoueeers & Qhanbiceanguess & Eeoecs 

ig 
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Ze 

= 5oR Sus SRPRR Saas : 

of oe bees ees 
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& 
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1 ERROR POINTER TABLE 


g 
eo pe 


A an i PERCER wecer VE evet Fe (BIT #7) 





INHIBIT (BIT #10) 
FIs eve sERROR CORRECTION CODE INHIGIT (BIT #11) 
MT22= 1 IT (BIT ale 


;DESIRED CYLINDER oe so (RHCA) (#12) 
sEACH ee TS CALLE T er. 

s CURRENT CYL ore Tape ) (#13) 
; BIT I T NUMBER 

i BERIAS, NUMBER BIST (RHSN) (#14) 

; NUMBE 


opeooone 


ata 
=d 






4 *EACH IS CALLED a 
4 “ERROR REGISTER #03 (RHER3) (#15) 
44 000001 PSu= sPACK SPEED UNSAFE (BIT 
ue vera -2% s VELOCITY DE TCEPT READ- ab /URITE (BIT #3) 
seis ae BRE if IBIS Pack ROTA ION ERROR (BIT #4) 
2648 000040 ACL= 40 AC LOW (BIT #5) 
2649 000100 OCL= 100 :DC LOW (BIT #6) 
2650 040000 SkKI= 40000 ;SEEK INCOMPLETE (BIT #14) 
2651 100000 OCYL= 100000 OFF CYLINDER (BIT #15) 
Fess ee Pett Is CALLED BY GIT NUMBER. 
2655 : cc PET TERR Se TER (RHEC2) (#17) 
2656 EACH IS CALLED BY BIT NUMBER 


TT 


















JOS 
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Bat 
2659 
seer .SBTTL REGISTER ADDRESSES 
eo 
2667 
2668 
es 
2671 
eb7e sRPOY VECTOR ADDRESS 

a 001616 o00254 RPVEC: 254 sRPOY VECTOR ADDRESS 
58 
2678 
2679 if 4 DISK 1/0 REGISTERS LOCA N THE RHIL 
2680 NOTE: The CONTENTS 6 OF THESE L ONG WILL CONTROLLER 
eb8! ; THE CHAN GE BASE SS" ROUTINE IS USED. 
ebb : firs INE STARTS AT LOCATION TAGED “BASECH™ 

01 : ; TE 

Spee Patbso 1obrEs Bre: «56568 SPORD EOUNT “SEE NO ote AVE 
2686 O01624 176704 RHBA: 176704 “BUS ADDRESS SEE NO 
2687 O0l626 176710 RHCS2: 176710 CONTROL AND STATUS 5 Cee NOTE ABOVE 
: a NOTE: pie Co NHS TS eee E Dea One re pevice Locte 

91 : IF He SAGs pace RObRE eS ROUTINE. 18, USED.» 
bse : THIS ROUTINE STARTS AT LOCATION TAGED ™ 
ebm 901630 176700 RHCS1: 176700 : bears eboie"° TE ABOVE 

96 rated Rohe RreCt Po be Pas SS SEE NOTE ABOVE 
Be ting ire Re ire Sete ict 
2699 raga eras RHCA: 1767 Orr SET, 5 TROER SS SEE NOTE ABOVE 
2700 OO1644 176742 RHER3: 176742 * ERROR NOTE ABOVE 
2701 OO1b46 176716 RHAS: 176716 sATTENTL Sune EE NOTE ABOVE 
oohS pptees 176712 RHDSi: trEoi2 DRIVE ey oy ee 
2704 001654 76726 RHOT: 176726 ;DRIVE TYPE SEE NOTE ABOVE 
2705 001656 176730 RHSN: 176730 *SERIAL NUMBER SEE NOTE ABOVE 
2706 001660 176744 RHECI: 176744 sECC POSITION eee TE ABOVE 
3707 001 176746 RHEC2: 176746 ;ECC PATTE NOTE ABOVE : 

001664 176720 RHLA: 176720 *LOOK-AHEAD SEE NOTE ABOVE ‘ 

2709 O01666 176736 RHCC: 176736 ;CURRENT CYLINDER ADDRESS SEE NOTE ABOVE 
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sie Eph Ont 


DB: 
WC: 


BA: 
CSe: 


os | aw | oe | oe | 


MO OMOMa 
Boe 


OOOOOOOO0O0OO00000 


SELECT: .WORD 
UNITSL: .WORD 


ERFLGS: 0 
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LOCATIONS ARE RESERVED FOR REGISTERS 
IS AN ERROR ALL THESE WILL BE FILLED 
SONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 

FOR THE TIME JUST AFTER THE “ERROR” ERROR COMMAND 


oo Oo 20M 


;SAVE PC OF JSR WHICH GAVE THE ERROR 










;DATA BUFFER 
;WORD COUNT 
;BUS_ADDRESS 
;CONTROL AND STATUS 2 


SE OROR AND STATUS 1 
DESIRED SECTOR/TRACK ADDRESS 
ERROR #2 


; OFFSET 
i DESTRED CYLINDER ADDRESS 


: AD 
*CURRENT CYLINDER ADDRESS 


SINT TS EAtHER, WITH -1 


NUMBER OF UNITS PRESENT 
; USED TO KEEP TRACK OF UNIT UNDER TEST 
j USE TO een IF THERE ARE MORE 


; THAN ONE UNI 
ALL_ONES INDICATE UNIT TO BE SELECTED 
sUNIT NO. SELECTED 





;ERROR FLAG 







N ORIVE CLEAR TEST 
G 







TER 
N DRIVE CLEAR TEST 
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002010 000000 


OGe01e 000000 


2783 
se 002014 000000 


8 


EEEEE SERRE ER AARSARE 


8 
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TIENT: O sATTENTION BIT FOR PRESENT UNIT 
aot at: 0 d FATAL ATTENTION BITS 


TMPILL: 0 potest ILLEGAL FUNCTION 
TSECC: 0 : ;FLAG TO SAY IF ECC TEST OR NOT 
sWHEN =177777 IT_IS AN ECC TEST 
; WHEN =01T IS NOT AN ECC TEST 
TESDTE: 0 ;FLAG TO SAY IF ie TIMING ERROR OR NOT 
at 7777 IT IS A OTE TEST 


;WHEN = a” IT IS NOT A DTE TEST 


TAGOTE: O ; TEMPORARY TAG USED IN DRIVE TIMING 
ERROR TEST 


me ee ee 








DERP 


sieges 


PERCE CEC ee ere hee: 


Hettdedetetetettedes 
oe ee ee ee en oe oe 
WONMU CWO 


iat 
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REGISTER ADDRESSES 













;FUNCTION EQUATES 
; TABLE OF FUNCTIONS FOR RHCS1 THEN “GO” BIT HAS TO BE SET 






FUTABL: 
NOPERA: 0 :NO OPERATION 
WEA: & tits fale 
| Reteas: 42 RELEASE “ue. PORT OPERATION) 
cFRCH: 40 es Roc RNAND 
WRCHEK: 50 WRITE "heck DATA 
MRCHDT: 52 iMRITE ¢ HECK HEADER AND DATA 
WRIDAT: 
MRIFOR: 62 :MRITE HEADER AND DATA (FORMAT) 
REF OR: 7 ER HEADER AND DATA 
SEECOM: 4 ;SEEK CORMAND 
OFSETC: 14 FESET COMM 
RETCL: 16 SRE TORNTO. CENTERL INE 
PKACK: 22 TRACK ACKNOWLEDGE 
READIN: 20 FREAD IN 
ILLEGL: WORD {COMPUTED ILLEGAL FUNCTION 
;DATA BUEFER FOR READ URITE 
WRFROM: "BLK 274 “WRITE FROM THIS BUFFER 
REINTO: “BLKW 274: FREAD INTO. THIS BUFFER 
TSTNN: | NUMBER 
FIRST: 0 fIF ZERO WILL TYPE HEADER 
;IF ONES WILL NOT TYPE HEADER 





- TABLE FOR ATTENTION BITS 
‘ATTENTION TABLE 
oo2 004 ATABLE: .BYTE 1,2,4,10,20,40,100,200 
go 












1 27(732) O8-OCT-76 11:10 PAGE 66 





tt i tal 
DERPSB.P REGISTER Test: 





BTTL REG! TER TEST 

seep OO4206 012737 177777 001766 BEGINe: nov Ls #SEL LECT ;SELECT UNIT 

e8e8 004214 000402 BR eA 

ay 004216 005037 001766 BEGIN: CLR Stee ect i AORNAL ad UNIT 





















e832 o04222 START: 
5335 -SBTTL INITIALIZE THE COMMON TAGS 
2834 -sCLEAR THE COMMON TAGS (SCMTAG) AREA 
2835 OO04222 012706 001100 MOV #SCMTAG, Rb Hap LOCATION TO BE CLEARED 
2836 O04226 o005026 CLR (R6)+ ‘CLEAR MEMORY LOCATION 
2837 004230 O22706 001140 CMP #SWR,R& ;;DONE? ’ 5 
2838 O04834 001374 BNE = ;;LOOP BACK IF NO 7 
2839 O04236 012706 001000 MOV #STACK, SP *:SETUP THE STACK POINTER { 
0 js INITIALIZE A FEW VECTORS 
1 oo4242 012737 051054 000020 MOV #SSCOPE SEIOTVEC :I0T VECTOR FOR SCOPE ROUTINE 
2842 oowieed 012737 pogs46 oo00022 MOV #340 autlOTvEc EL 7 
2843 256 012737 052710 000030 MOV #SERROR, a8 ERIVEC : EMT VECTOR FOR ERROR ROUTINE 
2844 004264 O01 900340 000032 MOV #340 Boat TVE a! 
2B4S oowe7e 1 053454 000034 MOV #STRAP, a8 TeaBY Eo LEVEL MecTOR FOR TRAP CALLS 
2845 O04 10737 000340 O00036 MOV #340 SRTRAPVECEE LEVEL 
2847 004306 012737 053524 o00024 MOV #SPWRDN, JEPURY: vee, SPOHIER FAILURE VECTOR 
2848 004314 Ole7 37 000340 o00026 MOV #340 OAPURVECSE ; sLEVE EVEL 
28489 004322 7 174664 CLR STIMES INIT Tai 12€ NUMBER OF ITERATIONS 
2850 ? CLR SESCAPE + FCLEAR THE ESCAPE ON ERROR ADDRESS 
2851 004332 112767 OO0001 174555 MOVB #1, SERMAX *ALLOW ONE ERROR PER TE 
2852 004340 012767 004340 174540 MOV a. , SLPADR js INITIALIZE THE LOOP ADDRESS FOR SCOPE 
2853 OO4346 012767 OO4346 174534 MOV SLPERR SETUP THE ERROR LOOP ADDRESS 
2Bs4 ;;SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
2855 jSEQUAL TO A *-1" SETUP FOR A SOFTWARE SWITCH REGISTER. 
2856 004354 013746 oD0004 MOV GHERRVEC,-(SP) |; ; SAVE ERROR VECTOR 
2857 004360 012737 004414 oD0004 MOV #64S ROE EARVES >SET UP ERROR VECTOR 
2858 004366 012767 177570 174544 MOV #DSWR, SWR js SETUP FOR A HARDWARE SWICH REGISTER 
2859 004374 012767 177570 174540 MOV #0BIS? DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
2860 OO4402 022777 177777 174530 CMP #-1, JSWR ji TRY TO REFERENCE HARDWARE SWR 
2861 OO04410 O0101e BNE 66$ 3 ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
2862 THE HARDWARE SWR IS NOT = -1 
2863 O04412 000403 BR 65S BRANCH IF NO TIMEOUT 
e864 ov 4 to0o0s oo4422 64S: NOV #655, (SP) *:SET UP FOR TRAP RETURN 
2866 OO4422 012767 000176 174510 65%: MOV yiPOINT TO SOFTWARE SWR 
2867 OO4430 012767 000174 174504 MOV sorepRee. b DISP 
eBb8 004436 012637 OO0004 66$: MOV (SP)+ RACRAVEC Y RESTORE ERROR VECTOR 












2872 OO4442 012767 OODD00 173326 MOV ;SET PROCESSOR STATUS TO 0 
2873 OO44SO 012777 051012 175140 MOV aRAVECT an PVEC : THIS I$ FOR UNTIMELY RPOY INTERRUPTS 
2874 OO4456 004737 0520 JSR STKINT p INITILIZE THE T 

2275 OO0446e 005737 004174 TST teins 1S THIS KeIRST TIME ROUND 

28 bowie 001001 BNE 1$ | *BRANCH IF NOT 





70 BR es 
004472 000137 005306 1$: JMP O#SND1 


004476 : 
2280 OO4476 104400 OO4SO4 TYPE 685 ;;TYPE ASCIZ STRING 
2881 004502 000436 BR 675 *:GET OVER THE ASCIZ 






ee ee ee 


7 


ied 
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DERPSS. Pi} TRITIALISE “id COMMON TAGS : 
esse pages: -WSCIZ_<15?(12)/RPOW OISKLESS CONTROLLER TEST-PART I (STATIC 1A)- DERPS-B/ 
‘3s : 
soe sates 104400 004606 TYPE 70$ TYPE ASCIZ STRING 
2885 OO4604 O00425 a R 9§ T OVER THE ASCIZ if 
o58 jaZ08: "ASCIZ <i8><12>/MAKE SURE DCL IS LOCKED ON CORRECT PORT/ 
2288 BoNeD 104400 OO466E So TR 728 ;3 TYPE ASCIZ STRING 
2889 4 Oc04es BR rat} *GET OVER THE ASCIZ 
e230 on | 4472s: .ASCIZ (1e> «1207 1F CHANGES ARE REQUIRED ON SWITCH THEN/ 
2852 OON74O 104400 OCO47HE —. 74§ ss TYPE ASCIZ STRING 
2893 304744 000430 gR >3$ “GET OVER THE ASCIZ 
een iz: "ASCIZ <15><12>/a CYCLE’ UP SEQUENCE IS REQUIRED FOR STROBING/ 
eee Bostee 104400 905034 —* Te 7E$ 33 TYPE ASCIzZ STRING 
.DO0414 BR dc§ :GET OVER THE ASCIZ 
2898 -:76$: -ASCIZ <15)<12>/THE PORT SELECT FLOP/ 
2899 O0SD64 es: 
2300 005064 104400 00S072 TYPE 78S 33 TYPE ASCIZ STRING 
2901 005070. O0043e BR o7§ “GET OVER THE ASCIZ 
exe © ay 45788: "ASCIZ <15><12>/ALL DCL’ UNDER TEST MUST BE LOCKED ON CORRECT PORT/ 
2904 005156 LO44OD 005164 * ‘TYPE 3; TYPE ASCIZ STRING 
2305 005162 O004 BR sees *GET OVER ASCIZ 
2906 54808: "ASCIZ <i5)<12>/ALL DCL'MOT UNDER TEST MUST BE SWITCHED OFF’ 
5208 Bosens 154400 o0s250 "TYPE =, 82S 3; TYPE ASCIZ STRING 
| 2309 o0S246 ’ 000417 BR 81g *GET OVER THE ASCIZ 
2910 . -282§: -ASCIZ ¢159<12>/0R LOCKED ON THE OTHER PORT/ 
| p8il bls: 
| 2312 005306 012737 177777 O04i74 SNDI: Mov 8-1, d8F IRST NEXT TIME DO NOT GIVE HEADER 
ezi3 005314 005737 O017%6-- - TST aestLEctT “WAS IT A 200 STAR 
316 005320 001435 BEC TST1 | ;BRANCH IF STARTING FROM 200 
| 3@1? o0s322 104400 905330 TYPE 65S 3; TYPE ASCIZ STRING 
| p918 005326 O00423 aR b4$ “GET OVER THe ASCIZ 
' p19 .265$: ASCIZ (15)<12>/SELECT ONIT NUMSER TO BE TESTED ? / 
| 5a) fhesve ots: 
1 104407 T 
2322 O0S400 042716 177770 BIC #177770, (SP) ;ONLY KEEP LAST 3 BITS 
| S3e3 DORN Ol 001760 MOV —s-( SP) ,asNIT ;SAVE UNIT TO BE TESTED 
| at 005410 Oo] 091770 MOV (SP)+, S8UNITSL :SAVE UNIT TO BE TESTED 
| 5359 
2328 oe EELELEFLERS HELIS EPSRSKASRRSRELHERERSSEERELESRHEELSEEREREAREREE 
| 929 ;ATEST 1 ERE EACH REG 
| 2630 * REFERENCE REGISTER SY A MOVE INSTRUCTION 
1 PFSSREEFESSESLEBRER REP EER ERE AEE RSEARASREESESRAR HEP ERALERELELE 
| 5 te 1 7 173566 it aye #1, STINE RATI 
| BBS Goes 01575, Borb00 Mov asta ep FEY be SFR PO inter 
cae 005420 012737 000001 004172 MOV STTNO,Q8TSTNM ;THIS SAVES TEST NUMBER 


ee eee ene 
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REFERENCE EACH REGISTE 


052716 


o0S47e 
0024 
1620 


000030 
oo0004 


006004 
173470 
001140 


173312 


004172 


MOV WREGSA] , OHEMTVEC; ce VECTOR SO T 


REGISTERS ARE CAVED 
MOV a28, SNERRVEC’ ‘set Aid BUS TIMEOUT 
MOV : tHE 24 REG TO TEST 
MOV SRHOR a i “fou te R OF at OF FIRST REG. 
1$: ney acRL)t, 
BNE rt s COUNT DOWN NOT DONE 
BR 3$ : BRANCH 4 
2s: ROY BERRVEC HE, QUERAVER 0 pRESTO RE TRAP CATCHER 
1 
MOV - (RIS, STMP! Store Faith PAIL ING REG DOR 
ERROR 15 *REGI NON EXISTAN 
BIT $612, aaSWR MIB ERROR PRI NTDUT ? 
BNE 4§ ; BRANCH IF YES 
TYPE 6S$ +s TYPE ASCIZ STRING 
BR 645 GET OVER THE ASCIZ 
ies: "ASCIZ <15)<12>/IF BASE ADDRESS IS TO BE CHANGED HALT PROGRAM / 
TYPE 675 ssTYPE ASCIZ STRING 


BR b&$ “GET OVER THE ASCIZ 
jj678: "ASCIZ ¢15)<12)/AND RESTART AT 7 


MOV SBASECH,-(SP)  ;GET READY TO TYPE STARTING ADDRESS 
;OF “CHANGE OF BASE ADDRESS” ROUTINE 


4§: JMP a NO OF Proe 
3s: MOV SSERROR, OsENTVEC; HRESTORE ERROR 
T REGISTERS TARE SAVED 


HOV SERRVEC+2, auernvie RESTORE TRAP CATCHER 


;LELEEPERAERESEE SELLE REESE EEE RA LESSEE EEE EERE R EEE EEE EELRLEEEE 
S ATEST 2 RHCS2-CONTROL AND STATUS 2 


# furs PARTIALLY TESTS RHCS2 TO OreLe DETERMINATION 
7* THE NUMBER OF DRIVES PRESEN 


ns BR rem re nee 
3 ty ;:D0 1 ITERATION 
satack : Cet iver 


MOV STTNO,28TSTNM ;THIS SAVES TEST NUMBER 


MOV DePRCS2+12, JUN 
MOV DERHCS2, DHUNtE 


JSR RS,aeBitsT ORY Sirs IN REGISTER 
UN -WORD O ee BETS ARE TEST READ/WRITE 
pHORD 0 BEANS TESTED 
E | TN COR Rect Be A RECEIVE 
RTS PC ;RETURN TO BLT3 ROUTINE 





ee te OE Es EE A 


nr ee ne eee re ee eR Oo 


DO6 
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DERPSB.P11 PARTIAL TEST FOR RHAS FOR UNIT NUMBERS PRESENT 
esas S SESHSESEKESAESESSSEAREE SERRA LALRASAASLAARA SERA SLELRSRELLESESLEAS 
e095 t STEST 3 PARTIAL TEST FOR RHAS FOR UNIT NUMBERS PRESENT 
© FFSLSFSRELSSAEFSSSKSLSLRAKAESRERESEAELAEARELERELLALARFSLELLLFSES 

2997 o0S742 4 T3: SCOPE 
e238 005744 012767 oO00001 173240 MOV #1, STIMES :;D0 1 ITERATION 
3900 oo0s7S2 912737 o00003 004172 MOV STTNO,dSTSTNM ;THIS SAVES TEST NUMBER 
3008 005760 913701 001646 MOV DSRHA HAS ADDRESS OF BUAS 

005764 Ol2711 177777 MOV 1, oR LIS cutRes RHAS (SURPRISED! ) 
3004 005770 011137 O01126 MOV aeSBODAT — ;TEST DATA 
2005 005774 105737 001126 TSTB aREdDDAT 
8 006000 001405 BEQ TSTY  ;BRANCH IF GOOD 
soe 006002 005037 001124 CLR aeSGDDAT :G00D DATA 

006006 010137 037534 MOV Ri, J#REGADR FAILING REG. RHAS 

006012 104001 ERROR 1 igs DOES NOT CLEAR 


BSRSBese8s 
WDNMIN£ Wt O 


Say eae 
b EREEiore pooeaseunen SOc: 


iitect us TEGT FOR DRIVES PRESENT USING RHAS AND RCS? 
s LEELLLLLLALELLELLLLLLLELELLALLLELELLLLELLRALELELELLEELLLELELELE 


+éTy: 
000001 173166 MOV #1, STIMES --00 I : TION 
RESET “START With AN INIT 
052030 ISR PC, JaSTKINT s INITILIZE TK 
001140 BIT #SW13, a8SWR : INHIBIT TYPEOUT? 
BNE 4§ “BRANCH IF YES 
006050 TYPE 65S TYPE ASCIZ STRING 
BR 4g *2GET OVER THE ASCIZ 
jagss: -ASCIZ <15><12>/LOOKING AT RHAS - RPOY DRIVES PRESENT / 
001646 4S: MOV JSRHAS, R1 R1 HAS ADDR. OF RHAS 
001626 MOV GERHCSe, Re *R2 HAS ADDR. OF RHCS2 
CLR >CLEAR RHCS2 
ieee my Sella my fas oon. oF me 
1 18: MOV garten > MOVE INTO RHERI 
INC dRe *INCREMENT UNIT NO. 
DEC RO * COUNT 
1$ : H IF 8 NOT DONE 
002004 MOVB 3R1,d8TOTALAT i SAVE TOTAL ATTENTION, 
002005 CLRB = ASTOTALAT+1 : 
TSTB ss ORI TEST FOR ANY DRIVES PRESENT 
BEQ 23 *IF NOT THERE BRANCH 
Petes Oo114O 2s aT Hee aeSwR INHIBIT TYPE OUT? 
’ BEQ Rte ; IF NO = 
000706 - IMP ae ; OUT 
006220 ' TYPE TYPE ASCIZ STRI STR NG 
jig? -ASCIZ tEF e>mo oars teaver THe 
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TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


bag? 


:718: 


a = 
$3 


2 
8 


i 


SPEC EVES ERCHC TELLERS RERPRESELA cea aia alanine 





22) 2 Ge Ge 


WWWUWGGL) 
Oe 


R2BRE8 


c+ ore 


ne ee es oe 
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dig: 


:738: 


big: 


big? 


8 oi 


4§: 


uae 


::67$: 


b6s: 


bag? 





69S 


sfi8 


208 12> 0088 not get Me 


73$ 


aeSEOP 
$ 


«15> <12>/TEST ati, 4 


aeUNIT 


satis R3 
8-1, (Rao 
#UNITS,R3 


@SNOUNIT 
#8. ,RO 


Ri’ deSTMPO TEMPORARY STORAGE 
asStMPO ;SET CARRY IF ONE IN O BIT 


RS,-(SP) 
67$ 

/, RHDT= / 
@RHDT , -( SP) 
69$ 


7 ==-NOT AN RPOW7’ 









bs 53 TYPE ASCIZ S 
(15> «12> WRITING ‘ARE ONG ERR ERR SISTER #1 FOR ALL UNIT NUMBERS/ 
Y BIT IN THE ATTENTION REGISTER SO ABORT PROGRAM 
; 3 TYPE ofiecle STRING, NG 

2 *GET 

<15><12>/T0 LOOP holes THs” TEST uifnogr PRINTOUT SET SWITCHS 13 8 AND 2/ 


;NO. UNITS PRESENT=1 


ou BLOCK TO ALL ONES 
erat IF 8 NOT DONE 


N0. OF UNITS PRESENT 
; COUNTER 


aah UNIT NUMBER 


ie THIS r CRae PORT RPOY 
: BRANCH IF YES 

33 TYPE ASCIZ aTrINe 

01> <12>/UNIT nubieR 7 
;GET READY TO TYPE UNIT NUMBER 


;GET READY TO TYPE RHDT 
i oft corte STRING 
OVER THE ASCIZ 





;NO RPOY FOUND SO BRANCH 





ra 


SBEVRRAERHLBBBVRRZORLSawoVcncow-oBese t 
wn 


GIG) IG) GGG) GG) GG) IG) GI) IG) GI GI GIG) (I GI CI GI GI GI GIGI ICI GIGS) 


bm 0 2 Be Bo bh 2 Fs B20 D = = 2 2 = BH Hh 8 DO - 8 & 2d OH HB =O — Pe PH HH 


BSarFHEGOH 
Satat =) 
a3 


2 


iS 


os 
jo oo () 


WWIWIWWWGIW WWI WI GIGIG) 


fs ba2 GF bo FH 4 = hPa 


BUFRLOW 


WWWWWU) 
sue: 


bb P= bP 


_ 
o 
= 
oO 
3 
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R ORIVES PRESENT USING RHAS AND RHCSe 


6S: MOV RS, (R3)+ 
001223 TYPE SCRLF 


MOV RS, -(SP) 
TYPDS sTYPE DRIVE NO. 
001762 INC JsNOUNIT 
cS: INC RS 
DEC RO 
BNE 4§ 
001749 001760 mov SeUNITS aauNIT 
1762 001764 MOV SENOUNTT, OSNUN ;SAVE NO. OF UNITS 
005337 001764 DEC JeNUNIT :TF NUNIT = 0 THEN ONLY ONE UNIT 
IF NUNIT MORE THAN O THEN MORE THAN ONE UNIT 
001766 TST QeSELECT STARTING ADDRESS 200 ? 
BEQ TSTS § ;BRANCH IF STARTING FROM 200 
001770 001760 MOV DSUNITSL, DSUNIT ;SET UNIT NUMBER 
: SD SERIAL MEER MO DRIVE TYPE 
jATE TEST SERIAL NUMBER AND DRIVE TYPEI - 
7 READ SERIAL NUMBER REGISTER AND DRIVE TYPE REGISTER 
+ TYPE IT OUT AND PROCEED 
:# 0 LOOP HERE SET SWITCH 8 AND THIS TEST NO AND RESTART 
 REKKEKEELELLEEG EELS EERE LAER E AES RAR AERA REE RLER ALLE REE LAFRARAERE 
és: SCOPE 


a pts He 1_ ITERATION 


72062 MOV 
‘ileal ORR ISK = -— LOmIn hoe 
vere CLR ont ‘CHE BR 
pints oo2002 HOY an Eto), QeATTENT sR CONTAINS UNTT NO son BIT 
poste HOPE TALE 33 TYPE 2 STRING 
BR e45 “GET OVER THE ASCIZ 
iagss: "ASCIZ <15<12>/TESTING DRIVE NUMBER 7 
001760 "OV SBUNIT, -(SP) sUNIT NO. TO STACK 
TYPOC i YPE DRIVE NO. 
001223 TYPE. ,SCRLF 
TYPE "678 3; TYPE ASCIZ STRING 
BR § *:GET OVER ASCIZ 
i875: SASCIZ <15><12>/SERIAL AO. = 7 
172372 MOV ORHSN, -(SP) SA FOR TYPEOUT 
TYPOC , $3805 =-OCTAL ASCII(ALL DIGITS) 
001223 TYPE ,SCRLF 
mr a er ot WER THe Rocz 
jie%: -ASCIZ , pe Tite = 
172330 "MOV RHOT, -( SP) DRHOT FOR TYPEOUT 
Typ gC $38 GEE OCTAL ASCII(ALL DIGITS) 
ieee 1s t T Pd ;READ SERIAL NO. 
17 30 1 DRHOT Ree TWO ARE T ion HELPY TEE OE LOOPS 
172310 001776 MOV DRHSN, JBSAVSN CAVE TO CHECK IF CLR RHCS2 etfs: S CLEARS ANY BITS 











eS Real 
168 007350 017737 


mecyl b§f i736) 


172300 001774 





DWWOIWWIUWIWLIL 


$2 b= pH - ps p> 


000006 004172 


040064 
010000 


007406 
007456 


007534 


007630 


BBSRRLGGLSVSIRRES Bsa otal fans oe GRANTS 


0) OI WI GI) GI GI) GI GI GI GI GI GI I IG GI GI I I GI (GI) 
ee es he bs es 0 0s he 00 Bae bo ho bw bs 0 bh eh 





Se GpAENSS 


SS ee ee ee ee ot 
NOULCWMeO 


fOPUROROFUROFOR 


TAC NUMBER OND ORIve Hyper “* 





MOV DRHDT,aeSAVDT  ;SAVE TO CHECK IF CLR RHCS2 BIT S CLEARS ANY BITS 
33 KLEFE REAR HE LKE KS ELE ESSERE ELSA FE LS LE LAE KSSH ELL EL EEE LASS EL LEE FE ASE 
:&TEST & CHECK MOL TO BE LOW 
s# MAKE SURE THAT DRIVE IS OFF LINE BEFORE STARTING PROGRAM 
: IF DRIVE IS ON LINE THEN AFTER TYPE OUT THE PROGRAM WILL 
1 HANG FOR EVER WAITING FOR DRIVE TO GO OFF LINE 
© SEEKER KLEKAAREEEA AS LLLERAAA LEELA LE RRLLALAS KS AERELA LARA ALF SEE 
téT6: SCOPE 
MOV #TTNO,2#TSTNM ;THIS SAVES TEST NUMBER 
ISR PC, J8CLDISK GIVE INITILIZE 
BIT #MOL, IRS "CHECK MOL IN RHDS1 
BEQ TST? —;BRANCH IF MOL LOW 
TYPE bss s;TYPE ASCIZ STRING 
2R GET OVER THE ASCIZ 
ies: .ASCIZ (18) 12> ORIVE 18'ON LINE - MOL 1S HIGH/ 
TYPE 675 33 TYPE ASCIZ STRING 
BR b6$ GET OVER THE Beclz 
jj87S: "ASCIZ <15><12>/HIT STOP’ON DRIVE TO GET IT OFF LINE/ 
" ‘TYPE 5s TYPE ofegiz STR ING 
BR abe *GET ASCIZ 
jib08: "ASCIZ ¢15)<12>/PROGRAM WILL HANG TESTING MOL TILL MOL IS LOW/ 
bg: BIT #MOL, aR3 ;CHECK MOL IN RHDS1 
BNE 1$ *BRANCH IF MOL IS HIGH 
TYPE 71$ $5 TYPE ASCIz TRING 
BR 05 OVER ASCIZ 
i218: ASCIZ <15)<12>/G00D - MOL IS NOW LOW . PROGRAM WILL NOW BE EXECUTED/ 
4 tiTeST 7" AMC = WORD COUNT REGISTER || TA 
TES LORDING NG OF ALL POSSIBLE BITS IN THE HARDWARE 
i GISTERS TTERN OF WALKING O'S (-2,-3,-5 ETC.) AND 
WALKING 1°S (1 10 ETC) 
EI...) BE AS 11, eer: 
tét7: SCOPE 
MOV #STACK, SP RESET STACK 
MOV STTNO,J8TSTNM  ;THIS SAVES TEST NUMBER 













HO6 
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DERPSB.P11 1? RHIC = WORD COUNT REGISTER 
4 Ol 001 WRHWC, DEPRWC+14 -GET REGISTER ADDRESS 
Baosa2 13935 Ba1re6 reat PRWC: Rov SWNT sere iOVE UNE NO. UNDER yest 
Basseq 797395 TER en 35229 : Phresh? TEST REAO/URITE 
176702 "WORD 176702 :OGRESS OF REG. BEING T 
o4g01 ERROR 1 ZINCORRECT DATA RECEI 
RTS PC tRETURN TO BLT3 ROUTINE 


010044 001626 010066 MOV d#RHCS2 dSPRCSe+14 ;GET REGISTER ADDRESS 
010052 013777 001760 171546 PRCSe: MOV QHUNIT,ORHCS2  ;MOVE UNIT NO. UNDER TEST 
010060 027452 JSR RS, BITST ;TEST BITS IN REGISTER 


=13 
3225 
3226 
3550 
22293 
3230 : jTAORRAEEHELEUAEEEEEEEORREEEEOEEEAEELESEEEREEREEEEEEEEREEEES 
j ATE RHBA - UNIBUS ORO CRERE Giare 
3% TEST LOADING I ALL POSSIBLE atts IN THE HARDWARE 
i REGISTERS. USE st ren ere OF WALKING 0’S (-2,-3,-5 ETC.) AND 
34 WALKING i°S (1,2,4,.10 ETC) 
| eeseeaueneaneuneanessanenneabebaiaeaneanencemeeneaneanententens 
007764 00004 téT10: SCOPE 
3238 
3533 007766 012706 001000 MOV #STACK, SP ;RESET STACK 
3241 
acs 007772 012737 000010 004172 MOV #TTNO,d8TSTNM ;THIS SAVES TEST NUMBER 
3244 , 
3e4%5 010000 013737 O01624% 010022 MOV QERHBA, DUPREA+Y *GET RESTS TER BOORESS 
8 010008 013777 001760 171612 PRBA: MOV DBUNIT, ARHCS2 UNIT NO 
3e47 O10014 O04SE7 27516 JSR RS BITST ites! oii. it “REGISTER 
01009 177776 - WORD 177776 e betut ST _READ/MRITE 
ester 104001 ERROR 1 ores OF Res. Ee RE 
3eS1 010026 000207 RTS PC > RETURN TO BLT3 ROUTINES 
3253 
3cS4 
oe ; jteeeeecuneneeceunsnencesessenuersaeaereraeceneeneneseeseentens 
jATE RHCS2 - CONTROL AND STA TUR 2 
3258 TEST ROARING AND Reel OF ALL POSSIBLE ars IN THE HARDWARE 
3259 fF REGIS a TTERN OF WALKING 0’S (-2,-3,-5 ETC.) AND 
3260 KING 1°S (1,2,4,10 ETC) 
326 Lc evuanannaaananeanenneatabane nkakaneaeineneeneaneaeaneneaents 
sete 010030 oo0004 téT11: SCOPE 
3264 
3e6S 010032 012706 001000 MOV STACK, SP ;RESET STACK 
cs 010036 012737 000011 004172 MOV #TTNO,28TSTNM ;THIS SAVES TEST NUMBER 
| 
3272 
3273 


—$—$——$ 
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MAINDEC-11-DERPS-B 
DERPSS.P11 RHCS2 - CONTROL AND STATUS 2 


SO RSOSRRSHGESer Ge SUR UR AGEN BUNUN TORSUSESPAEERER SSCS 
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;ONLY THESE BITS ARE TEST READ/WRITE 


ee oe ee er 


. TEST IS tterEACe] CONTROL AND STATUS 1 REGISTER 
1 ING BNO NG OF ALL POSSIBL BITS N THE HARDWARE 
is fed] Sten, 9; USE A PRTTERN OF TALKING 6 (=2,-3,-5 ETC.) AND 
Ferengi a tat  osemenenesenen 
tét12: SCOPE 
MOV STACK, SP RESET STACK 
MOV STTNO,d8TSTNM ;THIS SAVES TEST NUMBER 


MOV D#RHCS1, IUPRCS1+14 GET REGISTER ADDRESS 
PRCS1: MOV DBUNIT, IRHCS2 MOVE UNET NO. TEST 
RS BITST TES BIT IN REGISTER 

s ONLY 


-WORD 146 BITS ARE TEST READ/WRITE 
; WORD 176700 : OF REG. NG TESTED 

E 1 * INCORRECT DA IVED 

RTS Pc *RETURN TO BLT3 ROUTINE 


; sateST ig eat Eee eecisiee a eeeeeeeessneeeees 

TEST LORDING ad READING OF ALL POSSIBLE ary IN THE “mye 
te REGISTERS. USE A Pole OF SAXiNe O's (-2,-3,-5 ETC.) AND 
:# WALKING 1°S (1.2,.4,10 ETC) 
jitennennenensnenestneseteneseletebonssstivenssssessteeserteseees 


+6113 
STACK, SP RESET STACK 
STTNO,OSTSTNM ;THIS SAVES TEST NUMBER 


DRHER] QUPRERIAIY -GET REGISTER BODRESS 
DRUNIT, ORHCSS 


aed ne it Tet BL Wrest hice ieee rer OARI 


ee RESUS F oH ober = 


MOV 
MOV 
MOV 
aH 
. WORD 
ERROR 
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RHER1 - ERROR REGISTER #1 


ha tale” O8-OCT-76 11:10 PAGE 75 
DERPSB.P11 


010202 000207 


Tee 






PC ;RETURN TO BLT3 ROUTINE 





See eRe MAINTENANCE ReciecleR 


MAINTENANCE REGISTER 


‘aT 0 HLT MUST BE SET BEFORE THE OTHER BITS 


000014 Oo0417e 


BR 
-— 
= 


7 
" 
a 
01 
01 
O01 
: 
i 
O01 
01 


Bees SERORRNNNNS 
ary 


8 


3335 
= 
a 
3340 
a 
es 
: 
Ss 
33S2 
Ss 
= 
Ss 
3361 
= 
= 
a0 
a 
B 
Ea 
3380 
eo 
3383 
Es 





R BITS ARE TESTED (Re HAS S) 


| aNeaMenesaetaienedaneantantunssenaseanenatoaneaneaneaneaneaneay 


STTNO,QSTSTNM ;THIS SAVES TEST NUMBER 
PC, d#CLDISK ;SET UNIT NUMBER AND INIT 


JBRHMR, RO *RO ate REG. ADR. 
#1, Rl ine Is DATA 
W5, R2 HAS COUNT. OF NUMBER, OF BITS 
Wie ay Set Data Mi nee 
Rl -(SP) a Pon COMPARES 
#0MD!400, (SP); ance se 0 
(SP). asSGDDAT ; tee FOR ERROR PRINTOUT 
(5P)$, RO ; COMPARE 
2s ; BRANCH I 6000 
dRO, S$BDDAT TA 
RO, aREGAOR jE RILING REG. ADR. 
1 a REGIS TER 
T INDICATED 
Ri oe DATA 
#400,R1 ;SET UNUSED BITS 
481709, Rl ick LEAR READ ONLY BIT 
1§ *BRANCH IF S BITS NOT DONE 
#435,R1 ;R1 HAS DATA 
Re ;Re HAS COUNT BITS 
i a ier DIAGNOSTIC MODE BITS 
Ri, t RONPARE DATA 
sBRANCH IF 


ue 000 
er iBAD DATA. 


RO, JREGADR :FAILING REG. ADR. RHMR 
1 sMAINTENANCE REGISTER 
DOES NOT ALLOW WRITI 
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DE Pil T14 RHMR 


- MAINTENANCE REGISTER 









sees g 










010352 2 go0261 4g: SEC RRY 
ot bxe70t 001340 Nts ead foun ar CLEAR READ ONLY BIT 
10262 1 ooo400 BIS TO8,R “SET BIT’ ZEROED no ASE 
3391 010366 005302 DEC ae ‘COUNT IF S BITS DONE” 
3392 010370 901354 SNE 3 ‘BRANCH IF INCOMPLETE 
333 : 
33 
3397 : precy ie RHDST ~ DESIRED SECTOR TRACK ADDRESS 
3398 j ATE RHOST - DESIRED SECTOR/TRACK ADDRESS 
3399 i TEST LOADING BND READING OF ALL POSSIBLE BITS IN THE HARDWARE 
3400 is REGISTERS. USE A PATTERN OF WALKING OS ¢ (=2,-3,-5 ETC.) AND 
1 WALKING 1°S (1,2.4.10 ETC 
a | eeoeegeenneantatenneaneneenbsiabineancunenaceaceaneaeenneaeat 
010372 000004 +éT15: SCOPE 
Supe 
3406 010374 012706 001000 MOV #STACK, SP sRESET STACK 
3408 
$403 010400 012727 000015 004172 MOV #TTNO,Q8TSTNM ;THIS SAVES TEST NUMBER 
1 
aE 010406 013737 001634 010430 MOV D#RHOST, J#PROST+14 GET REGISTER ADDRESS 
3413 010414 01 001760 171204 PRDST: MOV QSUNIT,YRHCS2  ;MOVE UNIT NO. UNDER TEST P 
3414 910422 004567 027110 JSR RS BITST TEST BITS IN REGISTER 
3415 10426 017437 -WORD 17437 sty THESE BITS ARE TEST READ/WRITE 
3416 010430 176706 "WORD 176706 OF REG. BEING TESTED 
3417 010432 104001 ERROR 1 “INCORRECT DATA RECEIVED 
aig 010434 000207 RTS PC *RETURN TO BLT3 ROUTINE 
3420 
a 
ay 8 SHTEST 16 AMER ~ ERROR REGISTER G2 
3425 +i TEST LOADING BND ING OF ALL POSSIBLE BITS IN THE HARDWARE 
3426 # REGISTERS. USE A PATTERN OF WALKING O'S (-2,-3,-5 ETC.) AND 
3427 2% WALKING 1°S (1,2,4,10 ETC) 
3429 piece, SB ETP A 5, ; eC eee 
23 010436 oc0004 téTi6: SCOPE 










3432 010440 012706 001000 MOV #STACK, SP ;RESET STACK 








3435 O10444 012737 000016 004172 MOV STTNO,O8TSTNM ;THIS SAVES TEST NUMBER 





3 | | 001636 010474 MOV O#RHERC , O#PRERC+14 unit ne REGISTER_ADDRESS 
He Bio4eo B13777 en 171140 + PRER2: 44 QHUNIT,QRHCS2 — ; MOVE . WO eteTERe 










40 Ol 004567 027044 BITST ;TEST 
a ih 177777 WORD RS soor * ONLY al E BITS ARE TEST READ/WRITE 
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eT eo ee 
DERPSB.P11 T16 RHER2 - ERROR REGISTER #2 










10474 176740 .WOR 176740 sADDRESS OF REG. BEING TESTED 
aug stats 104001 ERROR l * INCO RECT DATA RECEIVED 
34 000207 RTS PC * RETURN TO BLT3 ROUTINE 
sii3 : ineST Ty ator nanclivorraey necisiee teense 
5 3% OADING eee | NG OF ALL POSSI LE Bits IN THE HARDWARE 
3424 4 REGISTERS ERS A PATTER OF WALKING Bre (-2,-3,-5 ETC.) AND . 
34S3 ALKING 1? 
3454  ppoegpegsntststb LAE A eseeneennsemsnene 
3455 010502 oo0ro4 +6117: SCOPE 
3457 
3458 010504 012706 001000 MOV a#STACK, SP ;RESET STACK 







3460 
si61 010510 012737 000017 004172 MOV #TTNO,daTSTNM ;THIS SAVES TEST NUMBER 

Sues 010516 013737 001640 01054 c MOV DRHOF , J#PROF+ -GET REGISTER ADDRESS 

3465 010524 013777 001760 171074 PROF: MOV JUNIT, IRHCS2 UNIT NO UNDER TEST 

3466 019532 004567 027000 JSR RS BITST jTESt ME: tN REGIST 

Ema 010536 016277 -WORD 16277 HESE BIT ER st READ/WRITE 
ib O10540 1767 3e zHORD 176732 bores OF 9 REG. BEING TESTED 

370 010544 RTS be t RETURN TO ee REFINES 










3475 33 veeT op RHCA = DESIRED CYLINDER RecicizR” 
34 ; ATE RHCA - DESIRED CYLINDER REGISTER 
34 +" TEST LOADING BND READING OF ALL POSSIBLE SITS IN THE HARDWARE 
28 3 REGISTERS, USE A PATT OF WALKING 0°S (-2,-3,-5 ETC.) AND 
i WALKING 1°S (1,2,4,10 
80 emer ea SB he AT 0 5, (Re ae 
a8 +éT20: SCOPE 





010550 012706 001000 MOV #STACK, SP ;RESET STACK 





86 
3487 010554 012737 000020 004172 MOV STTNO,J8TSTNM  ;THIS SAVES TEST NUMBER 













3489 
3490 010562 0137 001642 010604 MOV DBRHCA, DHPRCA+LY GET REGISTER ADDRESS 

3491 010570 13039 001760 171030 PRCA: MOV QHUNIT,JRHCS2  ;MOVE UNIT NO. UNDER TEST 

a9 10576 O04567 026734 JSR RS BITST ;TEST BITS IN REGISTER 

34 1060 001777 wWORD 1777 “ONLY THESE BITS ARE TEST READ/WRITE 
3494 176734 2 WORD 176734 ; ADDRESS OF RE REG. BEING TESTED 

suae stegti bboe07 TS c RETURN 0 Bet 13 8 Re GaINES 






: 


s aiabaatanianiteaioal 
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DERPSB.P11 Te0 RHCA - DESIRED CYLINDER REGISTER 







© SEXKKAAE LEAKE KREKRA KARE REELS KAE LER ERK LA LES EKAKE RA LRH LAAAREEKELE 
TEST 21 RHER3 - ERROR REGISTER #3 
1% TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 
is REGISTERS, — | , USE A Par TERN OF WALKING O'S (-2,-3,-5 ETC.) AND 
pene Re AL A 0 eae 
010612 o00004 +6121: SCOPE 








3210 010614 012706 001000 MOV #STACK, SP RESET STACK 
351 
213 010620 012737 o00021 004172 MOV STTNO,J#TSTNM ;THIS SAVES TEST NUMBER 
3515 
3516 010626 013737 901644 010650 MOV DHRHERS, JHPRERS+14 jGeT REGISTER ADDRESS 
351 010534 013777 001760 1707654 PRER3: MOV QeUNIT,YRHCSe ©; MOVE UNIT NO. UNDER R TEST 
3518 10682 OO4S6? 026670 JSR RS 07 BITST sitet Bris. IN 1REGISTE R ; RERD/ARITE 
3243 ste 12 on “HORS 176742 ADDRESS OF Bis BEING G Teste 
3521 010652 104001 ERROR 1 tTNCORRECT DATA RECE 
010654 000207 RTS PC RETURN TO BLT3 REO RINES 
$25 255 
3524 
3e5° 
3527 OF THE TWENTY REGISTERS (4 IN RH11, 16 IN RPO4Y) ONLY 12 ARE 
3523 ; CHECKED N THE OVE TESTS 
3529 ;TWO ARE ALREADY TESTED (SERIAL NO. AND DRIVE TYPE) 
3530 : ‘ie OTHER 7 WHICH ARE RHDS1, RHLA. RHCC, RHEC1, RHECL, RHEC2 
3531 ARE READ ONLY REGISTERS. ONE OR ZERO CANNOT BE WRITTEN 






3537 RELL KERR ELK SLEKHLE LRA LE ELK EEE SER REESE ES KSEE ESE EERE ELAR LER SEKE 
3538 t TEST 22 RHCS1 - BIT # 13 - MCPE 
3539 it THIS FORCES A MASS BUS CONTROL PARITY ERROR 

BY SETTING PAT AND READING RHERI 













3541 Y saueeesk nat shilestaeniietkehtahondtenmnenmeiemennieanananninl 
42 010656 OO00004 ites SCOPE 
43 010660 012706 001000 MOV #STACK, SP RESET STACK 







3s 
seu 010664 012737 O00022 004172 MOV STTNO,d#TSTNM ;THIS SAVES TEST NUMBER 
a4 010672 004737 O40064 JSR PC, J#CLDISK ;INIT AND SET UNIT NUMBER 


-SET FORCED {PARITY ERROR BIT PAT 
$550 010676 052777 000020 170722 BIS T, JRHCS2 jSET PAT TO INVERT PARITY 
3552 010704 005077 170722 CLR JRHERL ‘WRITE DCL REGISTER 
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as 
3556 
38g Olori4 beers? IO4e00 01126 


901406 
3561 010724 Ole737 104200 001124 
037534 


2565 
3566 
3567 010740 013746 001760 
sere ete 052716 0001c0 
8 010750 Ole637 O01iec4 
3570 010754 011237 001126 
3571 010760 023737 OO011e4% 001126 
3205 B10770 B23? 037534 
sri Olav TOH0BL 
3875 
3576 
3577 pines 011437 001126 
3878 011002 737 000010 O01ie6 
3580 011010 0014 
3581 Bole 127 000010 00):24 
3582 911020 010437 037534 
oes 011024 104001 


3599 

3600 011026 000004 

3601 011030 Ole706 001000 
3603 


te 011034 012737 000023 004172 
oS 011042 004737 O40064 





1$: 


es: 


55 DEAE SERIE SESE EAE HEE EE HE EEE EEE te HEHE EEE HEHE REE EEL REEL REE E EEE 
;kTEST 23 CONTROL AND STATUS 2 (RHCS 2) 


© ELE KKHHLARE RARE LAE LS KEL HA KE LEER E REL ALAR REA KASH KKK RELHELEKEREE 
+6123: SCOPE 


O8-OCT-76 11:10 PAGE 79 
DERPSB.Pi1 T2e RHCS1 - BIT # 13 - MCPE 


NON-EXISTENT DRIVE BIT#1l2 (NED) 









;WITH THIS PARITY ERROR NOTHING WILL GE READ TILL IT IS 
; CLEARED 






MOV OR1,98SBDDAT _ ;TEST DATA 
CMP ek BvRTR Hy auseboat  ConPare RHCS1 AFTER PARITY 
BEQ 1$ “BRANCH IF GOOD 

MOV #SC!DVA!RDY, aaSGDDAT ;GOOD DATA 

MO 1, J#REGADR sREG TER ADDRESS RHCS1 





tWRITING DCL REGISTER 


ie DID 
WITH PAT BIT HIGH 

MOV DaUNIT,-(SP)  $GET UNIT NUMBER 

BIS ePATIIR (SP) ; INCLUDE PAT AND IR 






MOV P)+,JkSGDDAT ; 

MOV aR2,d#SBODAT — : TEST DATA 

CHP J#SCDDAT, J#SBDDAT ;COMPARE RHCS2 
MOV R2, JHREGADR ; REGISTER HODRESS 
ERROR 1 *READING DCL REGISTER 


WITH PAT HIGH CAUSED AN ERROR 


; 
MOV ORY, J#SBDDAT ;TEST DATA 
CMP #PAR, JWSBDDAT ERROR REGISTER 1 SHOULD 
HAVE PAR SET 





3$ 
MOV #PAR,d#SGDDAT ;GOOD DATA - 
MOV R4, JBREGADR ;FAILING REGISTER RHER1 
ERROR 1 3 PORT TY ERROR DID NOT 










THIS TESTS THE UNIT SELECT BIT #0-2 (US1-4) CLEAR BIT #5 (CLR) 






THE OTHER RHCS2 BITS ARE NOT TESTED HERE 









MOV aSTACK, SP ;RESET STACK 





MOV #TTNO,O#TSTNM ;THIS SAVES TEST NUMBER 


JSR PC, d#CLDISK ;HERE IT IS-USED TO LOAD CPU REGISTERS 
;R1=RHCS1 
:R2=RHCS2 
;m3=RHDS1 







6 





DOR DOR NSS Gah oee SOBUMROERE MEN Uns NeE Nemes 


OOOOOOOOOOOOGOOOOOOOOVO009O BOOOOOOVIO0OKOOH0R000000 


i mw ee 


MAINDEC-11-CERPS-§ 
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2 4 feo fs Ho 2 Ph > B= 8 bs Gh Pd 4 2 Od = b= ho 2 2 he b P-+ 0 2 Hf H+ Hs 5 HO 9H Pa ~~ H-o 


Te3 
00177; 


946330 


SRE tt ata 


005216 


Qo - 
— = 
x Y 
—- = 
mw ww 


$+ Po b- B20 D-H O-+ &- + 6-2 B—> 0 B= 2 B-< H+ §- = @ -2 Bo 


ZSFLERLEESE KRYBRVBSEHKZS 
s 


-88 
ane 


000010 


ORR 
ae 


rururu 


= pe pe 
co 


fs 


yi 


SORES 


MACYI1 E7( 732) 
CONTROL AND STATUS 2 (RHCS 2) 


170500 
170470 
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70 
sF 


1$: 


es: 


7$: 


4§: 


S$: 
6S: 


CLR asERFLGS 
ABLE WILL 
IVES PRESE 
MOV sDISK,R1 
MOV ae., 
MOV a-1,(R1)¢ 
pre RO 

NE 1$ 
CLR dRe 
HOY Sisk RI 

’ F g 4 

TST Sha 
BIT sNED, aRe 
BEQ 3$ 
DEC RO 
BEQ 4$ 
MOV aR2,-(SP) 
BIC atc?, (SP) 
INC (SP) 
MOV a8RHCS1,R3 
INC R3 
MOVB #100, aR3 
MOV (SP)+, Re 
BR z$ 
CMP #24020, DRHOT 
BEQ 8$ 
CMP #20020, SRHDT 
BEG 8s 
BR 7$ 
MOV #8. ,-(SP) 
Sug RO. {SP) 
MOV (SP)+, (RL)+ 

Cc RO 
a 
OS 
JSR RO, JsCOMPAR 
UNITS 
DISK 
es 
6$ 

XT 

22 

RTS PC 
aon 23 

TS PC 





;CLEAR ERROR FLAG 


BE USED AS A TEMPORARY STORA 


; ROLE POINTER 
‘FILL @ LOCATIONS WITH -1 


aa 
wn" 
Con] 
ze 


oe 
“wo 
2 

S53 

saat 


ia 
2% 
ny 
"Ro 
ag 


: 
: 
3 


IVE 


Bee 
2a 
me 


BRANCH 
“GETTIN READY TO TYPE PRESENT DRIVES 
) NOW HAs DRIVE PRESENT NO. 

ive 


COUNT 


sRETURN F HEADER 

;RETURN F TA 

;RETURN FOR GOOD COMPARISON 
;RETURN TO COMPARISON ROUTINE 
WET NUMBER FOND BY RHAS 
; UNIT UNMBER FOUND BY CHECKING 
sRHCSe NED BIT sl2 DID NOT AGREE 


o7BNS JENS ZENG JENS JENS ZENG ZENS JBN SG ZENS ZBNS ZENE ZENG ZN GS ZRNS ENS ZENG ZENS ZENS 
g ZENS JENS NS ZENS JENS JENS ENG ZENG ZENS ZN JBN JBN ZBNG ZENS JBN ZENS ZENS ZENS 
g7HNS ENS RNS ZENG JBN SG ZBNS JBN GENS ZENG ZENG ZENS ZENS ZENS ZENS ZENS RNS ZENS ZENS 


IN THE ABOVE TEST BITS 01 


IF THe 
REALLY 


“DRIVES PRE 
THERE THEN THE ERROR IS | 


» AND BIT le ARE TESTED 
OUT DO NOT AGREE WITH WHAT IS 
N THE LOGIC 











nm 
Oo. 
ry Ks 
. ta) 
ta -— 
7 ie 
a. ~< aS 
og 
2 § 53% 
ve 2 28 
“os a 
—T zc ee 
fia 
nS HS Sue 
t QO --P 
ow e- =z ¢ 
on oO 
—- mre bee 
ws 
is 


ERUN 
FON 
T BACK TO MAIN DIAGNOSTIC HIT HALT SWITCH AND 


'RESTART PROGRAM IN NORMAL MANNER 


eSENRSENRS NESE NAS ENR ENB ENR ENR ENR SNES ENR ENE ENA ENR ENE ENE ENE ENE 
S7ENRZ ENR SNR SNR ENRZ SNR SNR SNR SNR SNR ENB SE NRE NBS NR ENB SNR SNES NE 


Coa 
mR 
;EVER DOING EXACTLY AS TES 


aoe 
TO GE 


, 
s 
b 
, 
, 
’ 
° 
e 
° 





p72 NRE NR SN SN SNS NZS NZ SNS NBS SNR SNR SNR ENR SNR SNES NBS NBS NE 


T OTL IN RHCS2 AND 
S GIVEN THEN ALL OTHER REGISTERS 


| om] 


WILL 
CLR 


HI 
T 


LOADED WITH ALL ONES EXCEPT BIT #0 AND #6 


“INTERRUPT ENABLE” 
S 


ST CHECKS CLR (RHCS2 BIT #5) 


sage 


Maa 


er 3 p11e40 o01110 fexti: 


wo 
‘~ 
rr 
~_ 
ow 
ey 
“ai 
iw 
tyr 
oO 


: 
a 
3 


ce Bhs 
ee oe peau 


2 
RE 


i t- seuseees 


ae 


mesa 


eee’ cocecsecace seco ets te =r $4 . 


ahi . 
aes a : 


pall 


eng od gd od ee 
taped 


eee 


RRR S 


--4¢ Ce a koe D 
ao i= [oo |] 


Rheielames 


QONMO00O 


acrwente 
BRRRRRRVSR 


cm hewn Kane) 


QON00K80000 


SAA 


3 

od 

. g 

s Sg 
aah 
=e ao 

. S 

22 En & ve 
-— > die 
Sy 53 S350 
a a 
EES gap beae 
see | Seeoeee 


| eee her) 
SS 


SPSSSe 


basen 


Ok a kod ad Od kd wd wd wh OO 


RERESRERDRREE = 283 a 


SSSSSSSSSSSSS 


end Od md oa 4 


AQNeNIo0ooO 


BEERS: 


GADR 
+, J#SBDDAT 
T, d#$800A 


acd) 
yscoon 


: 


#177777, d8SGODAT; 


;DATA BUFFER REGISTER 


O-UM Tino ao 
= ben ban ben ben ban ben ban dtieoen) 


BERRSRRRSS 


ea cramer = ene mn me om ne ee = | re ere 


BB 


nce, tas lta, ttt tl i tit ttt A RE ALO OC LOL ALA LLL CE 


BERPRASEEDEEO SEGUE REET MRen er er EP Re Ee ann na 


sree 
37e3 


3731 


S 
% 





POST | Ceres s 
DERPSS.P 


Te3 
OSe7 ie 


013712 


MACY11 22) 
CONTROL 
oooc4e 
001760 

EG 001124 
17777? =001126 
OleeSe 
o00000 001124 
001126 

001126 
012252 
000100 
001760 
001124 
Oise 
O011e4 001126 
OleeS2 
004276 001124 
poise 
004 001126 
OleeSe 


e7(7 08-OCT-76 11:10 PAGE G2 
AND STATUS 2 (RHCS 2) 


2s: 


3$: 


4§: 


Ss: 


6S: 




























BIS #CLR,dR2 ; SET on ae AGAIN BECAUSE 


sREROING BH HOB BA TRE CLEARING WILL 
MOV JSUNIT, dR tREINSTATE” UNIT NO. 
;WORD COUNT REGISTER | 
MOV 8177777 @SSGDDAT_;GO0D DATA FOR ERROR TYPEOUT 


MOV J(RO)+, a8SBODAT ; TEST DATA 

CMP #177777, deSBDDAT: COMPARE DATA 

BE 4§ sBRANCH IF GOOD 

ki PC, a#ERCS2C 5 JUNE TO ERROR FOR CLR (BIT S) 


;BUS ADDRESS REGISTER 


MOV DeSGDDAT ;GOOD DATA FOR ERROR TYPEOUT 

MOV Scho), OeSBODAT ; TEST DATA 

CMP #0, J#SBODAT; COMPARE TA 

BE S$ GOOD 

ISR PC, J8ERCS2C : JUMP TO ERROR FOR CLR (BIT 5S) 
;IN RHCS2 


;CONTROL AND STATUS 2 REGISTER 


MOV #100 tte ; INCLUDE _IR 
HOV es’ T; iat UbaTa FOR TYPE OUT 
tRa)+, gese0aT Test DATA 


MOV 

CMP a SCODAT 2 #SBD0At : COMPARE DATA. 

J , O8ERCS2EC 9, RROR F (BIT S) 
FER a ue Toe E OR CLR 


;CONTROL AND STATUS 1 REGISTER 


MOV BeSGDDAT ; GOOD DATA FOR ERROR TYPEOUT 
MOV acho}, aeSBODAT ; TEST 

CMP #4276, @ #SBDDAT; C ‘para 

BEQ 7$ 


IF GOOD 
JSR PC, d#ERCSEC JUMP TO ERROR FOR CLR (BIT S) 
3 IN RHCS2 


;ERROR 1 REGISTER 












creme ~ acto Meare é 





nal a -DERPS-8 
DE Pil 


Te3 


012737 


Obl 128 
po0d60 


Cleese 


000000 
3037 001126 
000000 


OleeSe 


MACY11 27(732) 
CONTROL AND STATUS 2 (RHCS 2) 





001124 78: 
001126 


001124 108: 


001126 


001124 115: 


001126 


001124 12s: 


001126 


001124 138: 


001126 


001124 14S: 


001126 
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MOV BeSGDDAT ;GO0D DATA FOR ERROR TYPEOQUT 

HOY a:A0)+, rONSEOOAT 5 TEST DA , = 

BP i : H IF GOOD 

ISR PC, a#ERCS2C : JUMP TO ERROR FOR CLR (BIT 5) 
IN RHCS2 


;DESIRED SECTOR/TRACK REGISTER 


MOV #17437, a8 bat TA FOR ERROR TYPEOUT 
MOV a¢ (RO) s, asSB008 vies one 


Ha MScacnesos ah! FEB eon cum cert $9 


;ERROR 2 REGISTER 


MOV QeSCDDAT ;GOOD DATA FOR ERROR TYPEOUT 
MOV acho, aeSBODAT ; TEST DATA 
CMP JESBODAT; C TA 
BEQ re H IF GOOD 
JSR PC, a#ERCS2C : JUMP fo ERROR FOR CLR (BIT 5S) 
:IN RHCS2 
OFFSET REGISTER 
NOV #116000, ; @#SG00AT _; 6000 DATA FOR ERROR TYPEOUT 
chr siie000, SESEOoHT ; Compare DATA 


: GOOD 
JSR PC, 8ERCS2C JUMP TO ERROR FOR CLR (BIT 5) 
:IN RHCS2 


;DESIRED CYLINDER S0DRESS REGISTER 


ey sth}, atseobny T Bharat TA FOR ERROR TYPEOUT 
CMP T; COMPARE ‘Dara 


te 
FER teat Hun 0, TERROR FOR CLR (BIT 5) 
;ERROR 3 REGISTER 


MOV QeSGDDAT :GOCD DATA FOR ERROR TYPEOUT 
MOV aihone, asSBODAT ; TEST DATA 
MP a4SB00RT; TA 


H IF GOOD 
PC, d#ERCS2C ;JUMP TO ERROR FOR CLR (BIT S) 





MACYL1 27(73 
CONTROL AND 


ee ae ee, 
‘ 


001124 
001126 


001124 


000400 001126 


001124 


001124 
001126 


001124 
001126 


e) 
STA 
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1S$: 


16S: 


173: 


21S: 


TUS 2 (RHCS 2) 


sIN RHCS2 
sATTENTION SUMMARY REGISTER 
MOV 3(RO)+, J#SBODAT GET _RHAS CONTENT 
MOV. «sO pASCDDAT ET BRTACFOR CRRCR TYPE OUT 
CMPB © A8SGDDAT, aNSBDDAT iC MPARE FOR RHAS 
JSR Pe a¥ERCS2C : JUMP TO ERROR FOR CLR (BIT S) 
;IN RHCS2 


sMAINTAINABILITY REGISTER 


MOV #4 QeSGDDAT ; DATA FOR ERROR TYPEOUT 
MOV 5(ROS+, aesanpat test pata 

CMP #400,  a8SBDDAT;COMPARE DATA 

BEQ i : IF GOOD 

J C, aERCS2C : UMP 10 ERROR FOR CLR (BIT 5S) 


;ORIVE STATUS REGISTER 


MOV #600,3"SGDDAT  ;GO0D DATA FOR ERROR TYPEOUT 
i ee me 

BIC #VV! PROG, ( *CLEAR VV AND PROG 

CMP #600, (SP3+ COMPARE 

BEQ 20$ 


'BRANCH IF GOOD 
JSR  PC.asERCS2C JUMP TO ERROR FOR CLR (BIT 5) 
HIN RHCS2 


sDRIVE TYPE 

MOV asSAVDT QeSGDDAT :GOO0D DATA FOR ERROR TYPEOUT 
MOV 3(RO)+, 98SBDDAT : TEST DATA 

CMP aesavot, deSBDDAT: COMPARE DATA 

BEQ 21 BRANCH fF GOOD 


JSR PC, 9¥ERCS2C «JUMP TO ERROR FOR CLR (BIT S) 
SIN RHCS2 
;SERIAL NUMBER REGISTER 


MOV JeSAVSN DESGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
MOV 9(80)+ SeSBODAT : TEST DATA 
DESAVSN, S8SBODAT: COMPARE DATA 
2 sBRANCH fF GOOD 
JSR PC, KERCS2C : JUMP TO ERROR FOR CLR (BIT 5S) 
;IN RHCS2 

















SASH, TLS Sarl Paks Ht Pe 





;ECC1 POSITION 


BIE IPE Ne sans 0: HOV atko>+, atSSODRT One A FOR ERROR TYPECUT 


3890 

3891 

3892 

3893 

3894 

ae 1ee0 001126 CMP o, TA 

233 ‘fl st g vated o12252 FER > older Eerie ERROR FOR CLR (BIT S) 

at 

3902 

3303 sECC2 PATTERN 

3905 

3306 012216 012737 OO0000 001124 235: Mov DeSGDDAT :GOO0D DATA FOR ERROR TYPEOUT 

Ole224 013037 001126 MOV sao) +, BeSBODAT ; TEST DATA 

3908 nee Oee7 37 900000 001126 CMP 40, JSSBDDAT ; COMPARE 1pATA 

10 15538 nih 012252 FER ie C, a#ERCS2C ure Tole O_ERROR FOR CLR (BIT S) 

Be 

zis ;LOOK-AHEAD REGISTER 
16 012244 005720 24s: TST — (RO)+ AS THE LOOK-AHEAD REG. CANNOT BE PREDICTED 

3317 AFTER AN INIT IT IS NOT CHECKED 
9 CURRENT CYLINDER ADDRESS REGISTER 


is 


ess: TST (RO)+ ;AS_THE CURRENT REG. CANNOT BE PREDICTED 
AFTER A INIT IT IS NOT CHECKED 


012250 268: 

012250 000405 BR TST24  ;BRANCH OVER JSR 

1 0 037534 ERCS2C: MOV -(RO), @#REGADR ;FAILING REGIS 

ot roti ERROR 1 CLR tate S) IN DID 

CLEAR REPROPIATE BITS 

OR ¢ EXTRA BITS 

012260 005720 TST (RO)+ (RO) FOR BAD DATA 

Oleeb2 000207 RTS PC + RETURN TO TEST ABOVE 


-SBTTL SILO TEST 


ee eet eee Ge ee ee ee 
SATEST 24 SILO TST 1 


;# THIS TESTS THE SILO BUFFER IN ne RH11 CONTROLLER 
3% A READ IS ATTEMPTED FROM AN EMPTY SILO 
3% DATA LATE (DLT) (RHCS2), TRANSFER ERROR (TRE) (RHCS1), 


Bios Sas GRRe EMCO NE NNO 





gear merece 
: 











SUSE, 





SUPRUSPERAP ECT UT LE SERERPRARE Ca ani dea attire eee: 
2 


oe + ee ee 





MACY! 
SILO 


eS er ner ane ee 
001000 "MOV #STACK, SP sRESET STACK 
o00024 004172 MOV STTNO,OSTSTNM ; THIS SAVES TEST NUMBER 
900130 IH Stes : JUMP TO Aer TEST FOR RH70 HD os 
167304 nov SHEA READ FROM erry Sits 
00100 BIS sor TTR (2p) eet bat Sie BT AND IR 
JSR PC, ePUTREG *SAVE REGISTERS 
1676 che (SP)+, aNCS2 : i! reo pane LATE BIT UP? 
001122 MOV R2, J#SBDADR IF NO FAILING | REG. 
ERROR 11 > RHC pid No T HAVE 
*RHCS2 SHOULD HAVE ony 
*DLT AND UNIT NUMBER (BIT 0-2) 
HALL OTHER BITS SHOULD 


144200 001700 1S: CMP #SC! TRE! RDY!DVA, acs p15 SPECIAL CONDITION, TRANSFER ERROR 
BEQ 2 "IF YES BRANCH 
001122 MOV Rl, J8SBDADR IF NOT STORE FAILING REG. 
ERROR 11 *RHCS1 DID NOT HAVE SC, DVA 
*TRE AND RDY. AFTER A 
eae eee see 
8 
"ALL O BE 
040000 2s: MOV STRE, ORL i CLEAR ERROR iT BY MOVING 
037470 JSR PC, JNPUTREG i SAVE FeGI 
004200 001700 CMP eROY!DVA,d8CS1 ALL BITS Y AND DVA SHOULD 
BEOti«3S BE ONCH IF YES 
001122 MOV R1, J#SBDADR *STORE FAILING ADDRESS 
ERROR 11 *AFTER A ONE IN TRE ONLY 
SREADY AND OVA SHOULD BE SET IN t 
001760 3$ MOV QHUNIT,-(SP) ’ 
000100 BIS #IR, (SP) 
001676 CMP (SP5+, aucse. ;RHCS2 SHOULD HAVE IR AND UNIT ONLY 
BEQ TST25 ;BRANCH IF YES 
001122 MOV R2, J8SBDADR STORE FAILING ADDR 
ERROR 11° "AFTER A ONE IN TRE ONLY 
ieee ae ae Ghee Becerra ronan 





he {/ae) 08-OCT-76 11:10 PAGE 8 


3% SPECIAL CONDITION (SC)_(RHCS1) SHOULD SET 
3% THEN LOADING “1” INTO TRE SHOULD CLEAR DLT, TRE AND SC 




















;% THIS TESTS THE IR AND “OR” BITS OF RHCS2 
AT THE BEGINNING IR SHOULD BE SET AND “OR” RESET 















z 
a 


SSSS55555 
WON UN £ WH 


Rae aRNees eee Pee tes UNTER SEE NUNES 


seggeaces § 


2514 


on ee en ee 


oO 
— 


B 8 & RES SRose BRARAERSREN 


t= 
& 
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;# Load ING B IN SILO RESETS df FOR ONLY 2 MICRO SECONDS 
% HIS T ANNOT BE CHECKED BUT IT IS CHECKED TO SEE IF 
ie HEN ACL Te CORDED. In SILO COME SET 

j# IN 30 Aicho SECOND AGAIN TIME 1S NOT” CHECKED 

# THE OUTPUT FROM THE SILO SHOULD BE O AND ALL ONES 

© SELLER ERERARERAALLERLALALARELEAALAALLRAALAAEEREAA RA LA LAL ELAELE 
tST25: SCOPE 


aSTACK, SP ;RESET STACK 
MOV STTNO,QSTSTNM ;THIS SAVES TEST NUMBER 


SR 7 "0 CLEAR REGISTERS LOAD RS 
OV I SP) 


M aauNIT,- 
BIS #IR, (SP) 
JSR PC, JSPUTREG ave REG picdehailte 
cH ($P)+, d4CSe T “OR” RESET 
MOV R2, 2#SBDADR FAILING REG 
ERROR re bors ROT FAVE 
Pit UNIT NO. 
1S: CLR QRHDB Orne Bed sn (sILo) WITH O 
MOV #-1, JRHDB ie SILO. WITH AL 
MOV DeRACS2,a82S ADDRESS OF 
WAT WAIT TRAP 
2s: sHORD ADDRESS OF RHCS2 
38: MOV QeUNIT,-(SP) 
BIS #OR! IR: (SP) 


1 TR: ( -IR AND “OR 
JSR PC, ONPUTREG :SAVE REGISTERS 
CMP (SP)+,aacse :IR AND “OR” SHOULD BE SET 
SNE RHCS2 ADDR. FAILING REG. 
OR" IN RHCS2 SHOULD BE 
$5 TOGETHER WITH IR AND 


4S; Mov QRHDB, RO ‘CAVE SILO bara SHOULD BE 
CMP #0,R0° ive St ve A SHOUD ee Ait 
CLR SESGDOAT sparen He ves 
MOV —s- RO, a#SBODAT 


ERROR pePOs, Sireron Pub ear PAVE te FIRST WORD 


S$: CMP #-1,R5 SECOND WORD A ALL LP ONes? 
BEQ TST26  ;BRANCH IF YES 


MOV #-1,3"SGDDAT  ;GO0D DATA 
MOV RS, J¥SBDDAT BAD DATA 
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001620 037534 
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4064 
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MOV Q#RHDB,A#REGADR ;SA RLS FAILING REG. 
ERROR l ants DID NOT Have THE SECOND 
RS SE No ALL ONES WHEN “OR” 


s KREERAAAAELARALLAAAAALLAAAEAAALAAAERAAAAARARAAAALAAAAALLAE LALLA 
t TEST 26 SILO TEST 3 
3% THIS cE Rio SILO BUFFER BY FILLING IT ut IT WITH 8 A COUNT FROM 
HEN CHECKING I 
+ IS HIGH AND COMPARING THE SILO OUTPUT. 


Sigg O27 yamine see eiter ence eer aia 9 eet rot acon 


+ét26 
MOV STTNO,d#TSTNM ;THIS SAVES TEST NUMBER 


IMP TST27___ ; JUMP _TO NEXT TEST FOR RH70 
HOV aS1LOTB, RO Pr A INTER 
1S: cLR {R0}+ CLEAR TOTAL TABLE 
BNE 18 * BRANCH IF NOT COMPLETELY CLEAR 
ISR FC ,CLOISK CLEAR ALL REG. 
MOV #66. RS ; COUNT 
2s: HOV RO, aRHOB iLOAD SILO WITH COUNT FROM O TO 65 
Be t«*éSé Tee EPs Rone? 
MOV DSUNIT, -(SP) . 
ee 15 
oie CepStr ances Pe SrucD ce SET IR RESET 
MOV R2, a#SBDADR ‘AVE Baese BB ADR. FAILING REG. 
ERROR 11 "OR WAS NOT SET, IR WAS NOT 
CLR D#ERFLGS RESET AFTER SILO WAS FULL 
a et 
4g: HOY SeH08 , (RO)+ sRERD SILO 
ofr 45 *BRANCH IF 66 NOT DONE 
HOV aSILOTB, RO :POINTER 
CLR ~-(SP3 
Ss: CMP (SP), (RO)+ 
BEQ 7$ sBRANCH IF GOOD 
MOV =(RO),a8SBDDAT BAD DATA 
MOV (SP) aNSGDDAT GOOD DATA 
MOV D#RHDB, IHREGADR ;FAILING REG. RHDB 
TST OHERFLES THIS FIRST ERROR? 
BNE § iF NOT CH 
ERROR 12 SE TWO ERROR CALLS ARE FOR 
BR 64S acy TO VOID PRINTING. NEXT ERROR 
6S: RROR 13 HE SAME TYPEOUT. 
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Te6 





tree | 
SILO 


166054 
77577 


€7 (732) 
TEST 3 


004172 


64S: 


7$: 


10S: 


A A ees 


+ iTE T 
% 


1S: 


3$ 
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EVEN AFTER THE 67TH. WORD INPUT THE FIRST WORD SHOULD NOT CHANGE 
°° amare epee este sine en eomtatonarpae i 


+6127: 


MOV 
ERROR 


A ene OP a ERENCE 
THE SILO IS LOADED WITH 0,1,2,3 THEN AFTER 





#OLT, aecs2 DLT SET? 
“BRANCH IF YES 
, @#SBDADR “FAILING ADDRESS RHCS2 
il’ *DATA LATE DID NOT SET AT 67TH. 
SRHOB, 9 INPUT TO SILO 
#1, a8$GDDAT 





Yh A et gd oe 


Cre 


NEX 
(RO)+ raw (RO) 

os So UBTHER COMPARES TO 
aicsuo7? shoe, (SPS; Er KEEP SW7 AND SWS 
#SWO7, (SP)+ sTEST SWO7 
10$ : IF NO Store COMPARE THEN BRANCH 
(SP) ;NEXT GOOD WORD 
RS * COUNT 
Eg BRANCH I IF 66 NOT COMPLETE 
(SP)+ :POP STAC 


INTO SILO AND CHECK FOR DLT 


STTNO,QSTSTNM  ;THIS SAVES TEST NUMBER 
TST30___; JUMP TO NEXT TEST FOR RH70 





PC, CLOISK s CLEAR DISK REG. 
RO’ CLEAR RO 

RO ;ADD 1 

RO, IRHDB "LOAD SILO 

#67. ,RO 67 DONE? 

2s >BRANCH IF YES 


1$ ;NO SO 
PC, J¥PUTREG ; SAVE REGISTERS 








TA 
auscDDAT, geseppat’. ; COMPARE 
TST30 ;BRANCH IF GOOD 
J#RHDB, JHREGADR sFATLING REG. HOS 
l2 *WORD I RHOB CHAN 
*AFTER NUE 67TH INGE 
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ms 
im 
4173 
4174 
3 013224 000004 

- 41 
4178 013226 012737 
4179 

Te ge pow 
ie Hes gare 
Ne Hee Ber 
418S 013260 022637 
4186 Ol3e64 001403 
4187 013266 010237 
ates Olse7e 104011 
ue Guage Be 
4192 13302 16110 
4193 
4194 013304 1 
4195 013306 022701 
4196 Ql33le 1 
wae niseee thes 
ue fies Wale 
4200 013326 000200 
4 13334 737 
4 1 13746 
Se te Bee 
4205 b133¢0 beee a? 
4206 013354 001403 
4207 013356 010237 
isn 013362 104011 
4210 013364 013700 
4211 013370 012710 
Se flees ie 
4214 B13400 Bt i003 
4215S O13402e 011204 
4216 013404 032701 
4217 013410 0014 
4218 iste 
4219 01341 1410 
4220 eed 010037 
4eel O134e4 te 
Yeee 013432 010537 
ussa 013436 104001 
42eS 013440 005703 





SILO 


000030 004172 


MaCY11 ec (738) 
TEST S 


013324 


001124 


s@ 
1% 
2% 
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"UR’ IS_UP A GR IN mes ee ke DONE ye 
T 


EES BinE ON nal 


Oo Sg gpeannesgicgt eee se ren bene aiateee Ne atypia) mR HR 


+130 


1$: 
es: 





#TTNO, J8TSTNM 
; JUMP TO. NEXT TEST FOR RH70 
EAR DISK 


TST31 
PC, J¥CLDISK 
ae suihIT,~(5P) 
Hi Ra PUTREG 
(SP)+, a8CS2 


: “Rag? 
4 aS 
a | 

xz 


Bats 
BA2S 


est 


RO, d#REGADR 
#4, J#SGDDAT 
RS, d#SBDDAT 


R3 


L IN NRHCSE. Moun BE SET 


; THIS SAVES TEST NUMBER 


SAVE REGISTERS 
SHOULD Bone “OR” CLEARED 


“BagEPS 
2 
ES 
“¥ 
E 
D 


NE 
i BRANCH IF NOT 


SWAIT FOR “OR” 
:RHCS2 ADDRESS 
sWAIT ON OR. 
;CLR_IN RHCS2 
sUNIT NO. 


;SAVE REGISTERS 
s1R SHOULD BE SET “O"=0 
H IF GOOD 


: BRANC 
FAL ING REGISTER RHCS2 
DOES NOT HAVE IR SET 
$ AND ALL OTHER BITS 0 
RHDB ADDRESS 












RPSB.P11 












4 
Yee? 013442 
4ee8 013444 
4229 013450 
4230 013454 
4231 013460 
4232 

4233 

42 

4235 013462 
4236 

4237 O13466 
4238 

4239 013470 
4240 pair 
4e41 013500 
4e4e eat 
4243 013510 
4244 013514 
4245 

4246 











4257 

4258 

4259 

4260 013520 
4261 

4262 013526 
4263 013532 
S igs 
Wee yes 
4267 Biseas 
uses 1355¢ 
4269 013556 
4270 013564 
4271 013566 
of Bis 
4274 

ae 
4579 13606 
4278 Ol3ble 
4279 

4280 013620 


| 
: 
| 
| 
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S 
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SS 
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TS 


004172 


001126 
001124 


001126 


i 


6$: 


5 5 REKAREAARAA LE RE REAL ALAA AAA RARE EAE RERRLERALLA ALLELE REEL RERRE EELS 
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MOV 
_ ERROR 


;&TEST 31 
RDY (BIT 07) AND DVA (BIT 11) SHOULD ALWAYS BE SET 


3% 


1$: 








31S DESTRUCTIVE READ 
GOOD 


RO aeREGADR FETED RODRES 

aeSGDDAT GOOD DATA 

R3, J#SBDDAT “BAD DATA 

1 ‘SILO SHOULD BE ZERO 
"AFTER THE ONE WORD PUT IN 
“HAS BEEN TAKEN OUT 

asm ‘SILO IS A DESTRUCTIVE READ 

+] +] 

TST31  ;BRANSH IF DLT SET 

DHUNIT,-(SP) __ ;GET UNIT NO 

#OLT!OR!IR, (SP) ; 

(SP)+,a#SGODAT GOOD DATA 

4, aeSBDDAT : AT 

Re; JBREGADR *RHCS2 ADDRESS 

1 DATA LATE ERROR 


TEST ODD BYTE INSTRUCTION ON RHCS1 


OO Ugg OO eemeeimecnet spp wemerrenrsonietek se baages vapapanayres-temes 


;THIS SAVES TEST NUMBER 


#TTNO, 28TSTNM 

#STACK, SP RESET STACK 

PC, CLOISK ;CLEAR DISK REG. 

#3566, aR1 LOAD RHCS1 WITH ANY NUMBER 

Ri -(SP)  ;GETTING READY TO FORM ODD BYTE 
*SP NOW HAS ODD BYTE FOR RHCS1 

45 Q(SP)+ :MOVE S INTO ODD BYTE FOR RHCS! 

ari aesBDpat TEST DA 


: TA 
#S66!DVAIRDY,a#SBDDAT ;RHCS1 SHOULD HAVE 4766 


1$ IF GOOD 

#566!DVAIRDY, a#SGDDAT ;GOOD DATA 

Rl, BREGADR ;FAILING REGISTER RHCS1 

1 sMOVING A ER INTO 
$000 BYTE RHCS1 GAVE 

#32 "MOVE INTO EVEN BYTE 


aR1’ oF 


JeSBODA “TEST DATA 
#432!DVAIRDY, JHSBDDAT ;RHCS1 SHOULD HAVE 4632 
TST32 


;;BRANCH IF GOOD 
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dee aos OAsee 


OoOo0000O A200 O0000 BO0000000 
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TEST ODD BYTE INSTRUCTION ON RHCS1 


006632 001124 
037534 


000032 004172 


BBs 
pies 


PP ae bs 
Yoo mR 


Se% 


S888s ss 888 8 
Selo Soo 


er a oe ae 
te et ae | 


001124 
001124 


t ATEST 


5% 


1$ 


5p RERRRRRER AREA ELE RAR EAE EERE RE ERE RREA EERE RREE AE RRERE ELLE REE EREREL 


MOV 
MOV 


ERROR 





pr aetoves ey @SSGDDAT ;GO0D DATA 


REGADR ;FAILING REGISTER RHCS1 
R MOVING B MBER INTO EVEN 
‘BYTE OF PRneoT GAVE WRONG 
‘RESULTS 





5 SEIS HEHE HERE HEE EEE HEHE HERES EEE EEE EEE REE EEE REE EE EEE EE 
TEST ODD BYTE INSTRUCTION ON RHCS2 


IR (BIT 06) AND THE UNIT SELECT (BIT O-2) WILL BE SET 


32 


BEQ 


MOV 
ERROR 


#TTNO, d8TSTNM 


OS Se amg Oo enka nit sea amok ee ppt ot pena memee ene 


;THIS SAVES TEST NUMBER 


PC, CLDISK 
#177000, (Re) sLOAD RHCS2 
Re -(SP) GETTING READY FOR ODD BYTE 
Res :S S ODD BYTE FOR RHCS2 
a(SP)+ *CLERR RHCS2 ODD BYTE 
JeUNIT, “SP GET UNIT NO. 
8IR, ‘INPUT READY AS IT IS SET 
dRe jaxsa000 at TEST D 
(SP)+, 4#SBD “COMPARE TO SEE THAT 
- ;"CLRB” itp. CLEAR 
DHUNIT, IRSGDDAT 
#IR, '° a8SGDDAT ;GOOD DATA 
Re, JHREGADR :FAILING REGISTER RHCS2 
1 -CLEARING ODD BYTE OF RHCS2 
? GAVE RONG RESULTS 
QUNIT, -(SP) 
#BAI, ’ (SP) 
#UPE, Re -  sHAVE UPE AND MPE_IN RHCS2 
i BESTDES UNIT SELECT 
(SP)+, aR2 *MOVE INTO EVEN BYTE OF RHCS2 
aeUNIT, -(SP) 
arReaat, ( (SP) 
(SP), ‘a@aSGDDAT ;GOOD DATA 
are aRSBDDAT TEST DAT 
(SP)+, M#SBDDAT * COMPARE % SEE THAT MOVB DID 
;MOVE EVEN BYTE ONLY 
TST33 ;;BRANCH IF GOOD 
Re, QHREGADR ;FAILING REGISTER RHCS2 


1 


sMOVING A NUMBER INTO EVEN 
"BYTE OF RHCS2 GAVE WRONG 
ESULTS 








MRINDEC-11-DERPS-8 MACYIL 271722) 0g-0cT-76 11:10 PAGE 93 
DeaPSE Pat 735 SBS SbsE t£8F on Bak 

4 ) ;#TEST 33 ODD BYTE TEST ON RHWC 

aT . ;# IN THIS REGISTER NO BITS SHOULD SF PERMANENTLY SET 

4 

mT 014002 lee MORNE, eco ene eee ane ch eae ake 
445 | 

ne 014904 012737 0009033 904172 MOV STTNO,daTSTNM  ;THIS SAVES TEST NUMBER © 

4348 014012 012706 001000 MOV sSTACK, SP sRESET STACK 

4349 O14016 004767 Oe4042 SR PC, CLOLSK “CLEAR DISK REGSTERS 
4250 Oiydee b1z704 001622 ay DBRHWC, RY iR4 4 HOW W 1S WORD COUNT REGISTER 
Se Mee eS > Sem eat 
4354 014036 112736 MOVB 98377, a@(SP)+ 377 T0 OF RH 

4355 Dive 4 001126 MOV ORY, a8SBDDA iHOVE 377 ” 0BD TE 

4358 O14Ou 066737 1 001126 che 817852, aXSEDDAT hi 33 IF MOVB DID OK 
4358 014056 012737 177652 001124 MOV #177652, 98$GDDAT’ GOOD DATA 

4359 140s 010437 MOV R4,  @SREGADR ;REGISTER FAILING RHWC 

4380 1 104001 1 ; Mov NG I INTO, 000 BYTE OF RHWC 

4 14072 112714 000 1S: sie ioe N BYT 

ae Bt aor Aielay Boris eve Sra, DeSSDDST ae fara state base: 
4364 014102 022737 177523 001126 CMP 

4368 814110 001406 BEQ TST34  ;;BRANCH IF GOOD 

4368 O14112 012737 177523. 001124 MOV #177523, a8SGDDAT D DATA 

4369 piled 010437 037534 HOV RA, "@BREGADR ; REGISTER. PRILING RHIC 

4371 

4375 

4374 SA AEKSSLLEFFLELELESAESASLELESLELAEEASLARERALELELSLERSLSEEEFALEEE 
4375 | tLTEST 34 TEST ODD BYTE INSTRUCTION ON RHBA 

4377 a | BIT 0 SHOULD ALWAYS BE 0 

iaea 0141 ree Sea ey ea ee eed 
138) 0141 eye 001000 "MOV eSTACK, SP sRESET STACK 

4383 014134 012737 000034 004172 MOV 8TTNO,@8TSTNM  ;THIS SAVES TEST NUMBER 

4 aise g04 7 0297 .3 JSR PC, CLOISK 

- 141 1 MOV es RY = RY ADORE 

4387 0141 ata ae MOV 4 * @R4 + AD RHBA vials: 

4288 O1M15 01 : Hoy (SP) iGETTING READY FOR 000 BYTE 
4390 sh 11 000377 MOVB i a(SP)+ ; LOAD BYTE OF RHBA 

433 bates 345 votes 001126 uP #179888, anse008 ani Oa OOMPARE MOVB RESULTS 
4393 014, 001406 BEQ sBRANCH fF GOOD 





ee en ee ne ae mn a ne et re a TS TT 


2 
reer re =) 


5g 


$RE BS 


014252 000004 


014254 
014260 


014266 
014272 
014300 


001000 
000035 


O40064 
oo00001 
oo20s4 


27 (732) 
DD BYTE INSTRUCTION ON RHEA 


001 ie4 


004172 
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1$: MOVE 


#177652, JeSGODAT 0 DATA 
m4, "2 BREGADR ifgTLING fe REG] TER RHBA 


ales aRY 
aRY, deSBODAT 


BYTE OF 


 RHBA GAVE "RONG RESULTS 


#177524, a8SBDDAT 
TST3S ;;BRANCH IF GOOD 
#177524, J#SGDDAT 


RY, "ae men aL i Lelie 


; TEST DATA 


Ms BYTE OF 


; RHBA NG RESULTS 


s SELLLSFLELLLELERALLLELALELLAALLA FEE LLALELLLELE LALA ALLA LALLALAEELE 


tf 

; RISRHCS1 CONTROL AND STATUS 

:# BND STATUS? 
:# R3=RHDS! DRIVE STA 
;# RY=RHER] ERROR REGIS 
# 

* 


OTHER USE IS ne OF THESE REGISTERS 


WHENEVER ANY 
; APPROPIATE SAVING MUST BE 


fp RRSRSSSELELALERELE SHEE ELALELAEEELLLLL LALLA E ALLE ALAA LELELALA LEE 


55 ARSE AE AR AE dR eae EE de aE EA AE AE EAE AEA EE EAE EEE ESE aR AE EEE 
38 PACK ACKNOWLEDGE COMMAND TEST 


: &TEST 
# 
* 
# 


THEN AL REGISTERS GILL. Be 


THENACL RECT REGISTERS TILL BE CHECKED 


WILL BE LOADED INTO RHCS1 WITH GO 
HECKED 


o SEFLELSLSESRELALLARSRSALALLLARAERELLAASRARARELERAAAARLL ELA RAAEEE 
- RESET STACK 
;THIS SAVES TEST NUMBER 


téT35: Sc 
HOV 
MOV 


JSR 


sSTACK, SP 
STTNO, d#TSTNM 


PC, D8CLDISK 
#OMD, DRHMR 
DsPKACK, ARHCS1 


; INIT - SET UP GENERAL REG. 
;AND UNIT R 
;SET DIAGNOSTIC MODE 


;LOAD PACK ACKNOWLEDGE COMMAND INTO RHCS1 
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DERPSS.P PACK ACKNOWLEDGE COMMAND TES 


;SAVE REGISTERS FOR COMPARISON AFTER GO 


037 osos42 $SR RO, aSSAVER . SAVE 

ae matte RHWC sFROM 

REINTO “TO 
tu 32 ‘NUMBER OF REGISTERS SAVED 

-GIVE GO TO PACK ACKNOWLEDGE COMMAND 

014320 052777 00000: 165302 BIS #60, ORHCS1 *GO TO PACK ACKNOWLEDGE COMMAND 
*CHANGE SAVED REGISTERS TO EXPECTED VALUES 

014326 052737 000100 Oo031S6 BIS #VV, Q#REINTO+30 ;SAVED RHOS1 


AFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND 
SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 


iB5 DONE 
004037 o40S42 bi RO, J8SAVER ; SAVE 
14340 001622 RHWC :FROM 
014342 02062 WRFROM 
014344 000023 19. ;NUMBER OF REGISTERS SAVED 


AS UPPER BYTE OF RAS CAN BE CHANGING IN A DUAL PORT 
sree YOU IM UCP ER BUTE OF, fees WILL OE aveD fe ie 
hove aeREINTOCoE i ip UPPER RHAS 


O143%6 113727 003153 002107 SWRFROM+25 ; SA 


;COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND 


Sik cee ator : 
: 





; a AF TER. 00 par GO 
040736 ; COMPARE 
REL :GOOD BUFFER 
WRF ROM TEST ER 
| 1s RETURN FOR ERROR 
tRETURN FOR GOOD COMPARISON 
370S o44532 1S: MOV JSERWORD, RS : GETTING Y TO INDEX 
ADD RS * DOUBLE WORD 

pa 001620 937534 MOV RHWC-2(RS),@#REGADR ;FAILING REGISTER RODRESS 

4429 ERROR 1 ER REGISTER HANGE 

4490 | T ACKNOWL COMMAND 
| 4491 *WITH oot ‘s GIVEN 

aude 014412 000207 RTS PC :RETURN TO COMPARISION 
| ayo4 014414 2s 
; 49S 
| 4496 

4497 
; 498 
i) 
| 4500 
| pe He LEEKEERELERELS EL SEEKERS LAER BREEAB! CKFSRASREKKRSSERRERSSRSSSERRE 
| wens TEST 36 UNIBUS INIT TEST 
| 4505 + ALL POSSIBLE REGISTERS ARE FILLED WITH ONES 
| 
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fest 








4505 ;# RESET COMMAND IS GIVE 
4507 :+ ALL REGISTERS ARE CHECKED 
ne 149414 ib er ann eee KEESES 
an 14416 yeaa 001900 aby 8STACK, SP RESET STACK 
4513 014422 012737 000036 004172 MOV STTNO,aSTSTNM ;THIS SAVES TEST NUMBER 
4515 
Rat 014430 004737 O40064 JSR PC, JSCLDISK sINIT AND SET GENERAL REGISTERS 
4518 sFILL ALL POSSIBLE BITS WITH ONES 
4519 giyuss ol 177777 165160 MoV §177777,ORHWC — ; WORD COUNT REGISTER GETS177777 
4520 Laie 1 177777 168154 HOY 0127777 ,SRHBA,  }BUS BUS ADDRESS REGISTER GETS 
ues tiee peer7e 14 1e2t3a MOV #14 ; ra outa aN STATUS Riven 21476 
: ot aa HE bio4 ete HOV $194 we i PRR OR RC eER TBR: TBA TRACK 
dese BHIETE Biers bet ieel a HOY SAP ORT, I PRRRED. ayetOR 
4526 014508 Ole??? 016277 1e51e4 MOV : SRHOF ‘Beinn esti 
a cee I ag i: 
3 ANGE Elsrer OM TEES 6 AN Sie ien RUMEN RECITER 
4532 =NOW SAVE REGISTERS IN sn INTO BUFFER 
4533 014544 004037 o4OS4e2 SSR RO, J8SAVER save 
4534 914550 Oo lbee RHWC 
4535 014552 0031 REINTO ‘T 
toe 014554 1 17. - 
4538 -GIVE RESET AND REINSTATE UNIT NUMBER 
og HEE Oe ew 
4540 O01 052030 JSR PC, 8STKINT sINITILIZE TK 
eu 014564 053777 001760 165034 BIS asUNIT, IRHCS2 
yey sCHANGE SAVED REGISTERS TO EXPECTED VALUE 
4544 014572 005037 003130 LR JeREINTO+2 sCLEAR SAVED RHBA 
4SuS = MOV DBUNIT,-(SP)  ;GET UNIT NUMBER FRO SAVED RHCS2 
weve 1 1 BIS IR, (SP) wait IR 
01 1 1 MOV (SP5+, Q8REINTO+4 RHCS2 
14612 Ol 276 003134 MOV sDvAtRDY' Orel 0+6 ;SAVED RHCS1 
1 138 CLR genet 1 RHER 
rl 14 CLR NTO+14 RHE 
ees 014630 012737 6000 003144 HOV #116000 te nTokte a 
they 123 CLRB See INTO s26VER 
4554 014646 012737 OO00400 003154 MOV D#REINTO+26 
4555 CHANGE ! Ml +6 SAV ee Btoa PROG BIT 
4556 O14654 01374 003156 HOV DERE INTO+ Us Bost 
4557 O1NbED Ove? 1b 76777 BIC ##CPROG, (SP3 i CLEAR EVERYTHING EXCEPT PROG 
4558 14664 16 BIS #700, (SP) >SET EXPECTED BITS 
4560 
4561 014670 012637 003156 MOV (SP)+, JWREINTO+30;SAVED RHDS1 
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DERPSE.P T36 UNIBUS INIT TEST 


ees Ol7oo Gost? BOSIBE CR SEREINTOOaB SAVED RHEC2 



















4564 
“AFTER RESET SAVE REGISTERS FOR COMPARISONS TO BE DONE 
see p1N704 osos4e $SR RRO auc AVER : SAVE 
14710 Bb iP3s ; 
4568 O147l2e 902062 HRFRON . :T0 
4569 014714 0002] ; NUMBER 
ueot  3QS UPPER BYTE OF OF -RHAS C CAN BE CHANGING IN A DUAL PORT 
ueo8 iso ioat OF rE ARES ARE ha 1D FoR THe bo EDR BF BYTE 
4574 014716 113737 003153 002107 JBREINTO+25, DSWRFROM+2S 
uesS ;AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
4578 RATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
4273 '50 THAT THE COMPARES ARE ONLY VALIO FOR THE LOWER BYTE 
#380 014724 113737 903153 002107 MOVE  A#REINTO+2S, JUWRFROM+25; SAVE UPPER RHAS 
4582 
4583 care an. #SQrPARe aeGISTERS BEFORE RESET WITH AFTER 
ube 14736 ities Ret . pee an OOD ROFFER 
BBB 14740 O02e062 WRF ROM * TEST ER 
14742 000021 17. : 
4588 014744 O14 1$ “RETURN FOR ERROR 
4589 O14746 1$ : 
20 014750 014772 RETURN FOR GOOD COMPARISON 
45 14752 013705 044532 1S: MOV QSERWORD, RS ;GETTING READY TO INDEX 
4 14755 - ADD 
4594 014760 016537 001620 037534 MOV RHIC-2(RS), aREGAR FA LING TER ADDRESS 
ioe 014766 104001 ERROR REGISTER CO AFTER 
aoe i a CAUSED 
4598 AN IMPROPER REGISTER CHANGE 
4599 (014 000207 RTS PC tRET URN TO COMPARISON 
4600 14 2s: *RETURN POINT ON GOOD COMPARISON 
4602 
WEDS 
wen ; et ent mee a re 
4607 , 
% reereies Soe fie Ech FIL LED WITH ONES 
* GIs TS MILL DN N_REINTO BUFFER 
461 i is fe 
ei * i aCe REGISTERS Gi WILL coMeND 
woT o LESS LEASERKEKELA SRL R ERS RKHEEL EKER ESR KERR AKL LE GLE HAE ELA EL LAL LEER 
4614 014772 000004 +5137: SCOPE 
He15 014774 012706 001000 MOV #STACK, SP RESET STACK 
wet 015000 012737 000037 004172 MOV #TTNO,@aTSTNM  ;THIS SAVES TEST NUMBER 
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wis 


efe 
: 


Bhs 


ee 


Sid FED 


wm 
BR 


015150 


SeSEPEEREERE Rou Onn annen secant ote sow GRnene moun en 


4673 015176 





004737 


d 


ROT 


Ee 
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READ IN PRESET 


040064 


003153 


164572 


164556 


002107 


1S: 
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08 





JSR PC, JHCLDISK ;INIT AND SET GENERAL REGISTERS. 
sFILL ALL POSSIBLE BITS WITH ONES 
Hoy #177777 RHC sWORD COUNT reeciateR eet 177777 
MOV #17437, T Bee RED SECT FR tPOER GE ius 
#1 ORHOF s OFFSET REGISTER GEIS. fe 
a *DE eee 
MOV #A16'A17,-(SP) GET BI 
MOV ote St N_PRESET IN RHCS1 
MOV Fa sero achost re NO 


“THE REGISTERS WILL BE SAVED IN REINTO BUFFER 
SR RO, J#SAVER ; SAVE 


RHWC 
_ 


:T0 
sNUMBER SAVED 


age’® RECO. RHE Heel ComnNe ; INCLUDE GO TO READ IN PRESET 
iNOW SAVED REGISTERS WILL BE CHANGED TO EXPECTED VALUE 
BIC aPnTeerne net fecr, aif intorie ERR FMT22,HCI,ECI IN 


ELE SER INTOFeU oe BE DatYod SER, POF 


Cave RE FSTERS iN’ do THAT COMPARES CAN BE DONE 
jane Mepis ce ee 


RHWC fT 

WRF ROM iT 

17. : NUMBER OF REGISTERS SAVED 
OF RHAS CAN BE CHANGING I 


;AS UPPER BYTE 
SO THAT tue companies ere Se Pt ha EAR 8 Bvre 


hove. QNREINTONeS: SeWRFROM+2S 


3C Tw oFTER 6 TERS BEFORE READ IN PRESET COMMAND 
ise AD AFT 
ER 
FROM ae 
17. inieee oR REGISTERS 
i OR ERROR 
;RETURN FOR GOOD COMPARISON 


MOV OBERWORD, RS ;GETTING READY TO INDEX 
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DewPsePil Ta? 






4674 015202 Q60505 ALD ROR WORD 

4675 015204 O16 001620 037534 MOV Rrle-2cRS), aurech FAILING. ofS, ADDRESS 

He iSel2 104001 ERROR iReCtctte ESET CAUSED IMPROPER 

4678 015214 000207 RTS PC feel Fok PONE COMPARISONS 
015216 2s: o ERRORS 


iteet dp NO OPERATION FUNCTION TrsT 


a nos PRIMO RE RCSD nen ror 
3% at WER oe eon ARE FI WITH ONES THEN A “NOP” 
;# IS GIVEN NO 


 KEEKAASLERE RA ASERARERERELRELA RESELL AA EREAE LALA SAAAE LLL LASALLE EEEE 
015216 o00004 téT40: SCOPE 


018220 012737 O00040 o04172 MOV STTNO,O8TSTNM ;THIS SAVES TEST NUMBER 
,START WITH oe N RHCS2 (BITS) 


Se ee ann eeee see mRe GR eB USTs 






1S22¢ SR IBLE BITS 
4 1523¢ p03 BA0081 164410 MOV + CB rachos oF ore 
Mai b15e40 a : bee HOV Se fern Nm math TroN=0 IN RHCS1 
iy 
ve Hes fee Si mY etd mcoare,ke murgen or ensercs = 
4 O152b 015063 1S: MOV (RO)+,(R3)+ *; HARDWARE RE 
4708 1 BNE OCS TOO ENH IF NOT.C 
471] DISS Tee do1652 015306 MOV #RHDS1 , 82S T SS OF SRTyE Status 
rib Glee Behn Sth SE enka 
47] Diao ei td Bie : WAIT FOR IN 1 
4714 015306 2s: .WORD 0 ‘ADDRESS OF DRIVE STATUS RHDS1 
W715 1 ORY :DRY WILL Be WAITED ON 
4716 O153l2 10441 WAT WAIT F Y IN RHCSI 
4717 015314 00000 3$ .WORD 0 s ADDR OF RHCS1 PUT HERE BY AN 
mat 015316 000200 RDY *RDY WILL BE WAITED ON 
y 
ee +O OVE RE MO TERS Egan 8 THAT COMPARES CAN BE DONE 
a6 o1 owos42 $22 Rb gece io E 










‘NUMBER OF REGISTERS SAVED 


eB Hee fie tho 
ve HES Sie 
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DERPSB.P T40 NO SPERATION Pune TION TEST 


4730 ;HS_ UPPER BY BE CHANGING IN A DUAL P 


Green DE Wer OLE ie WALID FOR THe LOWER Te 


733 015332 113737 001717 002107 hove’ DAS+1 , HWRFROM+2S 


;COMPARE REGISTERS BEFORE NO OP COMMAND 
4 ait AFTER COMMAND 


i 40 040736 3k RO, J8COMPAR COMPARE 

1 WRFROM FER 
4741 01 b0e1 17. rete F REGISTERS 
aug 1e3e4 1e360 us 
ne pl esep teao 5 TURN FOR GOOD COMPARISON 
4 1 044532 4g: V #ERWORD, RS err INDEX 
uous Bieses peasbe BO ERROR WORD 
4748 015366 016537 0901620 037534 MOV RHIIC=2(RS), aunechon GF FAILING REG. ADDRESS 
u74a 015374 104001 ERROR NO OF COMMAND CAUSED IMPROPER 
eat 015376 000207 RTS PC iREGTST rN COMPARISONS 
4753 O1S409 SS: NO ERRORS 








4755 

4756 

ave Bleace oaray Gaoces OO ug, SBR BeNSNBEDESK EPRIT Cast ALL ZERO TEST 
O1S4ie 012777 000001 164230 MOV #DMD , JRHMR ;SET DIAGNOSTIC TAODE 


wee NOW START WITH ALL ONES IN ALL POSSIBLE REGISTERS 
u7eM 015420 912700 001622 Hoy #RHWC RO aa ADDRESS of ee FIRST ora 
4 Bteasq 815738 raises 6S: MOV se a(RO)+ pti 
4767 015434 013777 001760 164164 MOV JSUNIT, BRHCS2 RSTATE he NOFBER_ UNDER TEST 
a7 O1S442 005305 DEC RS — 
aoet biewde Tea HOV SS NOPERA ari i OP OPERS ae N RHCS1 
are Dib iss Biz7OD Bbibes MOV RHC RO’ ‘Saline eooneas OF REG sane 
al Glee Heres Bee RY Held mucere, Ab saben SHEETS 
4775 15s 1302: 7S: HOY 3(RO)+, (R3)+ iSAVE 
4 bitze toiars ad a : F NOT COMPLETE 
4778 i i z go1es2 015514 MOV SERHOS! 8108 ; I 85 OF DRIVE TATUS 
4 OIEeOe Oee7ih Bb8801 BIS nab" 1 $8 TO 
mar { 19 45000 10$ WORD 0 SWAT CON OMY v ReratUS RHOS1 
4788 biEeI ORY DRY sia BE WAITED ON 
4784 O1 10441 WAT : Y IN RHCS1 
4785 015522 000000 11S: S OF RHCSI PUT HERE BY AN 









ee ett oe nae 
DERPSB.Pil UNCTION TEST 


O1sse4 000200 


daeg 


oO000 


001717 002107 


001620 037534 


Ooo000 G2O0000O 
a fe Fee fs p< bo hs po 


Oct ial eases ice RPP RES 
Ro Bone SReRaNe 


g 


SeRaeee 


woo 
238 
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;EARLIER MOV. 
RDY ROY WILL BE WAITED ON 






se STE ed quar COMPARES CAN BE DONE 


WRF ROM T0 
17. NUMBER OF REGISTERS SAVED 


AS UPPER BYT BHAS CAN BE CHANGING IN A DUAL PORT 
SQPERATION THE T SE PER B RHAS WILL BE SAVED AS IS 

OMPARES ARE ONLY VALID FOR THE LOWER BYTE 
hove’ aeneel. JSWRFROM+25; SAVE UPPER RHAS 


;COMPARE REGISTERS BEFORE NO OP COMMAND 
‘WITH AFTER COMMAND 
SSR RO, 2#COMPAR ; COMPARE 


Hee ROM i oer F 

17. ‘NUMBER OF REGISTERS 

128 RETURN FOR 

1e$ ; SAME 

135 *RETURN FOR GOOD COMPARISON 
12: MOV JSERWORD, RS GETTING READY TO INDEX 

ADD RS, RS ‘DOUBLE ERROR WORD 

MOV RHWC-2(RS), DARECAR AEPILING REG REG. ADDRESS 

ERROR 1 CAUSED IMPROPER 

RTS PC sREGIST FOR FURTHER COMPARISONS 


138: ;NO ERRORS 


9S EBHHHEHEHHEHHEHHEE HEHEHE HHEHHE HHI EHHEHHEE HEHEHE EEE 
DRIVE CLEAR 


tATEST 41 


;# ALL WRITE BITS OF ALL REGISTERS EXCEPT RHDB ARE FILLED WITH 
3% ONES Ce INTER a RY “9 AND BIT #6 WHICH ARE “GO” AND 







I RF ORMED 
THEN ALL REGISTERS EXCEPT RHDB ARE CHECKED 
i paar 63° * asin pease eammammamamamcent cette em: 
MOV #STACK, SP ;RESET STACK 











015614 
015622 


: 


$3 lee 
484 1 
4850 Nee 
4851 015664 
fey 
H 
4855 015714 
4856 pt eegs 
4858 e736 
4859 
4860 
4861 


QOOOOOOOoOOO0000 
Bim bam fs ba Pee Dm bs P= hm pee po ht fe 


PRS SASERERRES 


58 
TO 


ee Lie RERERPARRR Ses 
BS 


b& 
og 


S398 


MAINDEC-11-DERPS-8 
DE Pll T41 


012737 
7 


8 
¥ 


WNW 


S 


o~- 
-_ 
= 


Sar 
ott 


rs 


tuo 
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DRIVE CLEAR 


004172 


;THIS SETS BITS 


163632 


77777 ~=(001124 28s: 


001126 


MOV 


‘FILL 
fh 


MOV 
CLR 
MOV 
ROR 
BCC 
MOV 


DEC 


;DATA BUFFER REGISTER 


my aa HDs 


;WORD COUNT REGISTER 





STTNO,dSTSTNM = ;THIS SAVES TEST NUMBER 
PC, aaCLDISK ry REGISTERS AND CLEAR 


TS 
’ ; SS REGISTER GETS 177777 
»ORHWC = ;WORD COUNT REGISTER GIS ge 







8177777, 0RHBA_ BUS ADDRESS REGISTER GETS 1 
#157010. dRHCS2 ;CONTROL STAT GETS 15701 

#1476, dRHCS1_ | CONTROL STATUS REGISTER/GETS 1476 
#177777, 0RHERL ERROR REGISTER! GET 

#17437 T DESIRED SECTOR 

#177777, aRHERe jERROR REGISTER 2 

#16277, 0RHOF ; OFFSET REGISTER 

#177777, 0RHCA  ;DESIRED CYLINDER 

#177777, ORHERS ;ERROR REGISTER 3 

8OMD, JRAMR :MAINTENANCE REGISTER 

#177777, 0RHMR  ;MAINTENANCE REGISTER 






FOR ALL PRESENT DRIVES 





QeTOTALAT,RO § ;GET DRIVE PRESENT 
dRe *CLEAR RHCS2 AND CARRY BIT 

#8.,R5 ; COUNT 

RO *GET BIT INTO CARRY 

31$ : IF NO UNIT ON THIS BIT 
#-1,9R4 ;MOVE INTO ERROR REGISTER TO SET ATA 

aRe s INCREMENT RHCS2 - UNIT NO. 

RS s COUNT 

27S "BRANCH IF 8 DONE 

30 ‘CONTINUE THIS ROUTINE 

JeUNIT, -(SP) 

#157010,(SP) | ;REINSTATE SET BITS 

(SP)+, dRe : 

#0MD, RHMR ;SET DMD 

JeOCLEAR,OR1 #§ ;DRIVE CLEAR = 10 INTO RHCS1 

#60, ORL *G0 

#RHOB, *RO CONTAINS ADDR. OF ADDR. OF REG. 


@#SGDDAT_ ;GOOD DATA FOR ERROR TYPEOUT 





#177777 

J(RO)+, a8SBDDAT ; TEST DATA 

8177777, dHSBDDAT: COMPARE DATA 
3$ BRANCH fF GOOD 

PC, WERCLFC 







;JUMP TO ERROR FOR CLR (BIT S) 
;IN RHCS2 
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4304 Bieloe 90 Sp4799 016712 













4910 

491 16106 Ol 

ase bieLis 13037 dat i2e 
491 16120 022737 

4914 O16126 001402 

4915 016130 004737 016712 














4 
4919 

4920 

4921 

4922 016134 012746 000110 
4923 016140 053716 001760 
4924 016144 012637 001124 
a attatst 13037 001126 
4 16154 3737 001124 

Ol6162 001402 

: 016164 004737 0O1671e 
4 
















a 
4938 016170 005737 001764 
4940 bieize b12797 104210 
4941 bieeon 

4942 016206 012737 O04210 
4943 Ol6ei4 013037 001126 
494S 016220 023737 001124 
4946 Olbec6 001402 

4947 016230 004737 016712 
4948 

4949 

4950 

4951 

4952 


a flees Gas ie 


MACY11 27(732) 
DRIVE CLEAR 


001124 
001126 


001124 
001126 


001126 


001124 
001124 


001126 


001124 


4$: 


Ss: 


32S: 
333: 


7$ 
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177777 
MOV t+ JaSBDDAT ; 
CHP acf)4,8 


4g 
JSR PC, d#ERCLFC 


;BUS ADDRESS REGISTER 


b, 
5 
JSR PC, WERCLFC 


MOV sthose On aSBODAT 





O#SGDDAT_;GOOD DATA FOR ERROR TYPEOUT 


“TEST DATA 


deSBDDAT: COMPARE DATA 


‘BRANCH {F GOOD 
: JUMP TO ERROR FOR CLR (BIT S) 
tIN RHCS2 


Q#SGDOAT 5 GOOD DATA FOR ERROR TYPEOUT 
is SBDOAT; conpase DATA 


sBRANCH f 


fia I25 ER OR OFOR CLR (BIT S) 


;CONTROL AND STATUS 2 REGISTER 


MOV #110,  -(SP) 
BIS ea (SP) 


5 INGLE IR 
:SET UNIT 


#SGDDAT;GOOD DATA FOR TYPE OUT 


MOV J(RO)+, aeSBDDAT ; TEST DATA 


JSGDDAT, J#SBDDA 
ISR PC, Q#ERCLFC 


BODAT: COMPARE DATA 


BRANCH IF GOOD 


JUMP TO ERROR FOR CLR (BIT S) 
;IN RHCS2 





;CONTROL AND STATUS 1 REGISTER 


TST O#NUNIT 


#4210, a8SGDDAT 


3104210, @¥SGDDAT’ 
33$ 


;ARE THERE MORE THAN ONE UNIT 
;BRANCH IF ONLY one UNIT 
;G00D DATA 


;G00D DATA 


MOV 
MOV 3(RO)+,38SBDDAT ;TEST DATA 


JSR PC, J#ERCLFC 


;ERROR 1 REGISTER 


CMP DUSGDDAT, B¥SBDDAT; COMPARE DATA 
75 sBRANCH IF GOOD 

JUMP TO ERROR FOR CLR BIT S 

;IN RHCS2 


MOV #0, Q#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 





MAINDEC-11~-DERPS-8 
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MACY11 27(732) 
DRIVE CLEAR 


001126 
000000 


016712 


017437 
001126 
017437 
016712 


000000 
001126 
000000 


016712 


001126 


001124 
001126 


001124 
001126 


001124 
001126 


001124 
001126 


001124 
001126 
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10S: 


11S: 


12$: 


135: 


14S: 


MOV a(RO)+, a el ; TEST a 
a as$8DDA T; COMPARE 


a Soe! Felson cum cert 6 


;DESIRED SECTOR/TRACK REGISTER 


MOV #17437, JSGDDAT ;GO0D ATA FOR ERROR TYPEOQUT 
MOV 3(RO)+,aaSB0DAT_ ; TEST D 
CHP #17437, ad¥SBDDAT: conoore "Bara 


GOOD 
JSR PC, J#ERCLFC : JUMP TO ERROR FOR CLR (BIT 5S) 
:IN RHCS2 


;ERROR 2 REGISTER 


MOV DeSGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
MOV achor+, aussopaT TEST DAT 

CMP ae #SBDDAT ; COMPARE Bata 

BEQ NCH IF 


ip ;BRA GOOD 
JSR PC, d#ERCLFC ;JUMP TO ERROR FOR CLR (BIT 5) 
;IN RHCS2 


;OFFSET REGISTER 


MOV #1160 ANSCDDAT :GOOD DATA FOR ERROR TYPEOUT 
MOV J(RO)+ OO. eSBDDAT -TEST DAT 
CMP #116000, J#SBDDAT: COMPARE DATA 


BEG 13$ “BRANCH {fF GOOD 
JSR Pe a¥ERCLFC S{UME 19. ERROR FOR CLR (BIT S) 


;DESIRED CYLINDER ADDRESS REGISTER 


MOV DESGDDAT :GOOD DATA FOR ERRUR TYPEOUT 
MOV stRat, JHSBODAT ; TEST DAT 
MP #1777,’ aJ#SBDDAT:COMPARE DATA 


C 
’ BEQ tag BRANCH IF GOOD 


JSR PC, O#ERCLFC su TD ERROR FOR CLR (BIT 5) 


" sERROR 3 REGISTER 


MOV DeSGDDAT :GOOD DATA FOR ERROR TYPEOUT 
MOV sifo)+, aeSBODAT ; TEST DA 

CMP J#SBDDAT tCORPARE. BATA 

BEQ tes *BRANCH IF GOOD 

JSR PC, JHERCLFC i YUME, 29, ERROR FOR CLR (BIT S) 
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DERPS8.P11 T4l DRIVE CLEAR 



















Saif sATTENTION SUMMARY REGISTER 
i O1eH40 01373? on2004 001124 15S: Noy a4TOTALAT O4SGODAT ; SET ALL BITS OF DRIVE PRESENT IN RHAS 
eat Bie tss Bisaas BAT TSE BiG RUGTTENT gasano iEBBAR, AL 

15 O16460 123737 001124 oo1126 CMPB © A#SGDDAT, A#SBDDAT “COMPARE DATA 
5016 O16466 901402 SE ‘BRANCH IF GOOD 
5017 016470 004737 016712 ISR PC, JHERCLFC ‘JUMP TO ERROR FOR CLR (BIT S) IN RHCS2 
Sat ;MAINTAINABILITY REGISTER ; 
5020 
ens 016474 012737 OOO40D 001124 16%: MOV #400, @8SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
S023 016502 013037 O01126 MOV 3(ROS+,a8SBDDAT ; TEST DATA 
5024 O16506 Dee? 7 OO00400 001126 CMP #400, ' a¥SBDDAT; COMPARE DATA 
5025 016514 Oo14 BEQ 7 ’ BRANCH 
5026 016516 004737 016712 JSR PC, 2ERCLFC JUMP TO ERROR FOR CLR (BIT S) 
2p56 ;IN RHCS2 
e028 sDRIVE STATUS REGISTER 
5031 016522 012737 000700 001124 173: MOV #700,0#SGDDAT  ;GO0D DATA FOR PRINTOUT 

016530 013046 MOV a(ROJ+,-(SP)  3GET RHDS1 

5033 016532 011637 001126 MOV (SP) @kSBDDAT TEST DATA 
5034 016536 042716 001000 BIC #PROG, (SP) *CLEAR PROG BIT 
503S 016542 022726 000700 CMP #700, (SP)+ “C 
5036 O16546 001402 BEQ 20$ ‘BRANCH IF GOOD 
2037 016550 004737 016712 ISR PC,QWERCLFC . JUMP TO ERROR FOR DRIVE CLEAR 
5039 es DRIVE TYPE 
eput 
SO4¥2 016554 013737 001774 001124 203: MOV aaSAVDT Q#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
ciiy Giese rar GGLPRS couies =e Sata” Sesto Conpone oa 
ebde pt eese ate EQ are : BRERA if GOOD 
co46 016576 004737 016712 JSR PC,@#ERCLFC — ; JUMP TO ERROR FOR CLR (BIT S) 
e047 IN RHCS2 
5049 ;SERIAL NUMBER REGISTER 
5050 os 
5051 
ones O16602 013737 001776 001124 21%: MOV aeSAVSN QeSGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
5054 016610 013037 O01126 MOV 3(RO)+, a#SBDDAT ; 
5055S 016614 023737 001776 001126 CMP aRSAVSN, d#SBDDAT: COMPARE DATA 
5056 Ol6622 001402 BEQ 22 sBRANCH fF GOOD 
5057 Ol6b24 004737 016712 JSR PC, QHERCLFC JUMP TO ERROR FOR CLR (BIT 5S) 
5058 IN RHCS2 
5059 sECC1 POSITION 
obey 

0 16630 012737 000 001124 22$: MOV #0 DHSGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
Epes pt pps> is 539 be MOV J(RO)+, a4SBODAT steer DATA 
5064 Ol6642e 022737 OO0000 o01126 CMP #0 Q¥SBDDAT; COMPARE DATA 
6065 016650 001402 BEQ 23 *BRANCH IF GOOD 


eee. 
; 


— 


aK bt i | ig 
DERPSE.P 


eee 


$071 


O 
o 


Se RN TORS OMWR EMER Aa tol oda oae 


UU UU UU UT UT UU UU UT Trt 
Sow Noun Fwn-OSS VARESE 


rT 
~- 


141 
O1g652 004737 


016704 005720 


016706 905720 


016710 
016710 od004iC 


018732 0c00004 


ee eee 


MACY) 1 pie se) 
DRIVE CLEAR 


026712 


O00809 001124 
001126 
000009 00i126 


016712 


037534 


021166 
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ISR PC, DeERCLEC : JUMP TO ERROR FOR CLR (BIT S) 
» IN RHCS2 
sECC2 PATTERN 
238: Mov DeSGODAT -GO0D DATA FOR ERROR TYPEOUT 
MO s:80)¢, aBSB008T : TEST DATA 
CMP T: COMPARE DAT 
BEQ 3 ae *BRANCH IF boo 


JSR PC, dBERCLFC s JUNE Bae FOR CLR (BIT 5) 
;LOOK-AHEAD REGISTER 


245: TST (RO)+ : 
;IT IS NOT CHECKED AFTER AN INIT 


;CURRENT CYLINDER ADDRESS REGISTER 


ess: TST (RO) 
AFTER AN INIT IT IS NOT CHECKED 


BR TST4¥2  ;BRANCH OVER JSR 


ERCLFC: MOV -(RO), @BREGADR ;FAILING REGISTER SS 

ERROR 1 ;-LR FUNCTION = 10 IN RHCS1 DID 
;NOT CLEAR te tL BITS 
;0R CLEARED EXTRA BITS 

TST (RO)+ ;UNDO -(RO) FOR 

RTS PC ;RETURN TO ABOVE PROGRAM 
;OR CLEARED EXTRA BITS 

TST (RO)+ ;UNDO -(RO) FOR BAD DATA 


JSR PC, CHECKT ;CHECK DVA, RDY, DPR, ORY 


SNe iidtlisttiiipiiiiiiiiiiii risers pers tess s So) 
;#TEST 42 SEEK COMMAND TEST 
;# 
3% 
3% 


T BE LOADED INTO RHCS1 WITH GO 
THEN BLL ALL Sea TOILE BE CHECKED 


THEN ALL REGISTERS WIL WILL BE CHECKED 
| ar * + _epammaima cnet utente tnt 


tér 





THE LOOK-AHEAD REG. CANNOT BE PREDICTED 


;AS_THE CURRENT CYL REG. CANNOT BSE PREDICTED 





+ 
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DERPSE.Pil T#2 SEEK COMMAND TEST 






















sigs 016734 012706 001000 MUV #STACK, SP ;RESET STACK 
51s 018740 012737 oOCo42 004172 MOV STTNO,daTSTNM  ;THIS SAVES TEST NUMBER 
1eb 
018746 004737 O40064 JSR PC, asCLOISK ; INIT ae SET UP GENERAL RE%. 


:A 
016752 012777 000001 162670 MOV #DM0, JRHMR i3e BIAGNOSTIE. MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
5 AND HOLDS RHLA FROM MOVING 


016760 O0SC77 162650 CLR DRHDST ;MAKE DESIRED SECTOR TRACK LEGAL 
016764 013077 002046 162636 MOV aeSEECOM GRHCS1 *LOAD SEEK COMMAND INTO RH 

016772 017746 162670 MOV =( 'GET RHCC 

bigr7 Oee7e 000632 CMP #410. "SPs IS CURRENT CYLINOER SAME AS 410. 
1 14 BEQ *BRANCH IF YES TO MAKE RHCA =409. 
017004 012737 000632 001210 MOV 8410.,deSTMPS :GET READY TO MAKE RHCA =41 

017012 000403 BR 10$ ;BRANCH TO FILL RHCA 

017014 Ol2737 O00631 O01210 9S: MOV #409. ,a8STMPS :GET READY TO MAKE RHCA =40 

017022 013777 O01210 i6e6le i0$: ## Mov DeSTMPS,IRHCA  ;MAKE DESIRED CYLINDER 401. OR 409 

“SAVE REGISTERS FOR COMPARISON AFTER GO 

017030 004037 o40S42 SSR RO, J#SAVER : SAVE 

017034 O01b22 RHWC : FROM 

017036 003126 REINTO :T0 . 

517040 19. *NUMBER OF REGISTERS SAVED 


000023 
;GIVE GO TO COMMAND 
017042 052777 000001 162560 BIS #60, JRHCS1 ;G0 TO COMMAND 
0S2737 


;CHANGE SAVED REGISTERS TO EXPECTED VALUES 


017050 000001 003134 BIS #GO,@8REINTO+6 ;SAVED RHCS1 
017056 020000 003156 BIS ePIP, JeREINTO+30° ;SAVED RHDS1 
017064 042737 000200 003156 BIC BDRY; J#REINTO+30 ;SAVED RHDS! 


AFTER GO HAS BEEN GIVEN TO SEEK COMMAND 
iy ae AGAIN SO THAT COMPARISONS CAN 


g1707e oyos4e JSR RO, J8SAVER ; SAVE 

17076 mittee RHIC 5 FROM 

017100 o0206e2 WRF ROM 

017102 oocd23 19. * NUNBER OF REGISTERS SAVED 


3AS RATION THE UP are Son BE CHANGING IN A DUAL PORT 
; OPERATION hes’ are A OR RE 
; :S0 T VALID FOR THE LOWER BYTE 
017104 113737 003153 002107 ive "saREINTOVeS® SalinFRonses; SAVE UPPER RHAS 


qnUTEsUsUFTETETENT UT UTUNTeUrertnUTenermEnenetnareneneEnenEnEneumerETteneneT 
VRRVIN SSS VERE SSSR ACOH SSS SFAHESHASSREYRRERLSSSY 


ee eee + ee 

















az 
i» 
A 
*o 
ws 
0-2 oe 
bee 
ov) 

tf 
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4 SEEK COMMAND TEST 


dy tas REGISTERS BEFORE SEEK COMMAND 


Sl 
$17 “WITH 
5180 017112 004037 040736 3SR of aaCOMPAR ARE 
5181 O17116 003126 REINTO COO BUFFER 
2182 O17 002062 WRFROM : TEST BUFFER 
1 \7lee 000023 19. : NUMBE 
5184 O17124 917132 1$ RETURN FOR ERROR 
18S O17 166 017132 1$ : 
3186 017130 017152 3 *RETURN FOR GOCG COMPARISON 
2188 17132 013705 o44S32 18: MOV QEERHORD, RS sGETTING READY TO INDEX 
189 017136 O60505 ADD 00 ERROR WORD 
2130 017140 016537 001820 037534 MOV ties 2(RS) DSREGADR ;FAILING REGISTER ADDRESS 
"p13 017146 104001 ERROR 1 s IMPROPER REGISTER CHANGE 
Si :AFTER SEEK COMMAND 
5194 WITH GO IS GIVEN 
21s 017150 000207 RTS PC *RETURN TO COMPARISON 
5197 
o138 ;NOW GIVE INIT AND GET GO AND PIP DOWN 





5200 01 os2712 oo0040 2s: BIS aCLR, Re sRH_INITILIZE 
S201 O17156 013712 901760 MOV JeUNIT. aRE *REINSTATE UNIT NUMBER 
S202 017162 012777 OOCOOl 162460 MOV DMO, DRHMR SET DIAGNOSTIC MODE BIT 
5203 THIS ENABLES COMMANDS WITHOUT MOL 
Sens HOLDS RHLA FROM MOVING 
5206 “CHANGE REGISTERS TO perenne VALUE 
5207 017170 042737 000001 003134 BIc 860, J#REINTO+6 ;SAVED RHCS1 
017176 042737 003156 BIC SPIP, JBREINTO+30° ;SAYED RHDS1 
SES ee an ne REARS 
ean Ol Bi33> ABisiB bostte MOV aS MPS ane SREINTOSO4 ; RHCC 
5213 
£214 sAFTER INITILI REGISTERS SO THAT 
els : COMPARES ok af BONE 
5217 017226 004037 o40S42 ISR RO, a#SAVER ; SAVE 
18 O17232 901 RHWC 3ERON 
19 b17e34 WREROM 
| sce 1 19. | t NUMBER OF REGISTERS SAVED 
| 2555 Beier ou Ve deren ie of te MILL ae Gea &e Ts 
255 iF ERA T THE Sas ; VALID FoR THE LO LOWER BYTE 
| 5226 017240 113737 003153 002107 MOVE  aBREINTO+25, a SeanFRONS, SAVE 
255, 
| 2553 oi7ous oowoa7 040736 (ER RE RESTA IIEaRY  *. aMpARE 
| §33) pt 75e8 003126 ; GOOD BUFFER 
ecse O17e54 O0cibe ;TEST BUFFER 
| & 17256 000023 "NUMBER OF REGISTERS TO BE 
| 
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o40S42 


003153 


037534 


162330 


162302 
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3S: 


4§: 


MOV 
15h 


RgINTO 


;GIVE GO TO SEEK COMMAND 
#G0 


B15 


SEE TURN POINT FOR ERROR 

tRETURN POINT: FOR GOOD COMPARISON 
SHERWORO,RS GETTING REAQY T0_ INDEX 
RHUC-2(RS), yy) REGISTER ADDRESS 


CONT nis, FE fr a WING AN 


sINIT Tide Fo FOLLOWI? 

PC RETURN 10 Co TO COMPARISON 
;G00D0 COMPARISON 

PC, d#CLDISK ; INIT a SET UP GENERAL REG. 
3 AND UNIT NUMBER 

#DMD, dRHMR ;SET DIAGNOSTIC MODE BIT 


: THIS ENABLES COMMANDS WITHOUT MOL 
AND HOLDS RHLA FROM MOVING 


JBSEECOMN,@RHCS1 ;LOAD SEEK COMMAND INTO RHC 
RED CYLINDER ADDRESS 


CLR I 
, SAVE REGISTERS FOR COMPARTSON AFTER GO 
RO, dsSAVER ; SAVE 


+ NUMBER OF REGISTERS SAVED 


, ORHCS1 ;G0 TO SEEK COMMAND 


;CHANGE SAVED REGISTERS TO EXPECTED VALUES 


BIS 
BIS 
BIC 


#G0,38REINYO+6 ;SAVED RHCS1 
PIP, 3 INT0+30° ;SAVED RHDS1 
#DRY; J#REINTO+30 ;SAVED RHDS1 


; AFTER GO HAS BEEN GIVEN TO SEEK COMMAND 


GISTERS AGAIN SO THAT COMPARISONS CAN 
RO, d8SAVER ; SAVE 


CRM 
;NUMBER OF REGISTERS SAVED 


{geen oy eu UPPER En BYTE OF Ril ras it rE é SAVED AS ts 


hove 


ONLY VALID oR THE A BYTE 


COMPARES 
aUREINTOWES, OeWRFROM+2S; SAVE UPPER 


;COMPARE REGISTERS BEFORE CCMMAND 












= 4 
Dp 
A 
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il T42 SEEK COMMAND TEST 


7414 040736 i adie ICONPAR ; COMPARE 
429 Bb313% REINT :G00D BUFFER 
a. bee Rom ;TEST FER 


RETURN FOR ERROR 


& ae TURN FOR GOOD COMPARISON 
044532 cs: MOV JHERWORD, RS ; GETTING READY TO INDEX 


ADD RS, RS G 
037534 MOV RHWC-2(RS) , daRE AILING REGISTER ADDRESS 
ERROR 1 : Dears REGISTER CHANGE 


OMMAND 
WITH GO_IS GIVEN 


eoooo 
saa 


pepeenans | 


Besos 
8 
g 


: 
: 


a 
R 


















E355 
5304 017452 000207 RTS pC RET URN TO COMPARISON 
exe ;NOW GIVE INIT AND GET GO AND PIP DOWN 
esos pious pracis DOI760 es: fy oSeanti SRE INSTATE GRIT 
5310 O17464 Bt 3955 000001 162156 MOV #DMD, ND anna pre TRoHOST TC MODE BIT 
5311 ‘THIS ENABLES COMMANDS WITHOUT MOL 
S3i2 AND HOLDS RHLA FROM MOVING 
psi “CHANGE REGISTERS T EXPECTED VALUE 
Beis o1747e 042737 000001 903134 BIC G0, SHREINTO+G 5 ; SAVED 1 
Bu? ot ar opgets aosiee Bis soay’S INTO 1 
18 917514 O1 162144 170 MOV DRHLA, I#REINTO+42: SAVED RHLA 
5319 017522 003172 CLR DSREINT ; SAVED 
Ee sAFTE NITIALIZE SAVE REGISTERS SO THAT 
COMPRRES- CAN BE DONE 
5324 017526 004037 o4os4e isp RO” oe SAVER ; SAVE 
bee fives Silees rn io 
bie? 017536 000023 19. ;NUMBER OF REGISTERS SAVED 
3323 xe BYTE OF CAN BE CHANGING IN A DUAL PORT 
RTION THE UPPER BYTE RHAS WILL BE SAVED AS IS 
5331 HE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
b232 017540 113737 003153 002107 HAT IREINTOReS: JeWRFROM+2S; SAVE UPPER RHAS 
5334 
5335 “COMPARE REGISTERS AFTER INITALIZE 
5336 017546 004037 040736 JR RO, J#COMPAR ; COMPARE 
Be fis fale mR : 
2540 17556 00002: 19. 3 R OF REGISTERS TO BE 
1 17566 7$ *RETURN POINT FOR ERROR 
Pup Bt cee BFeee 75 ; 
3 01754 017606 83 *RETURN POINT FOR GOOD COMPARISON 
| 5345 017566 013705 044532 MOV DHERWORD, RS ;GETTING READY TO INDEX 
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e orem 001620 037534 NOY Rie chon GF Se The men 
Ne Bize7s OiGas” 001 NOV RHC=2(RS) , JaRE ORB LING ‘Fare R ADDRESS 
5350 O17E04 000207 RTS PC gt N TO COMPARISON 
017606 8S: COMPARTSON 





a ae nee ces a eee 
;*#TEST 43 NLOAD COMMAND TEST 


;# THE UNLOAD COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
THEN ALL REGISTERS WILL BE CHECKED 
te RH CLEAR WILL BE GIVEN 


oie ep eareaegy roca ama WO CSR IE 
017606 coo004 +éT43: SCOPE 
017610 O12706 001000 MOV #STACK, SP RESET STACK 
017614 012737 000043 004172 MOV STTNO,d#TSTNM  ;THIS SAVES TEST NUMBER 
017622 004737 O40064, JSR PC, J8CLDISK sINIT AND SET UP GENERAL REG. 
AND UNIT NUMBER 
017626 012777 OO0001 162014 MOV DMD, JRHMR igeT MND STTE MODE BIT 


THIS ENABLES COMMANDS WITHOUT MOL 
SAND HOLDS RHLA FROM MOVING 


017634 013777 OCO2020 161766 MOV @SUNLOAD,@RHCS1 ;LOAD UNLOAD COMMAND INTO RH 


;SAVE REGISTERS FOR COMPARISON AFTER GO 
SR RO, d#SAVER ; SAVE 


25 
Ps 
4 
a 


RHWC 3FROM 

O176S0 003126 REINTO :T0 

017652 000023 19. *NUMBER OF REGISTERS SAVED 
GIVE GO TO UNLOAD COMMAND 

017654 052777 OO0001 161746 BI #60, IRHCS1 -GO TO UNLOAD COMMAND 
CHANGE SAVED es 10 EXPECTED VALUES 

017662 052737 000001 8Is 860.2 olFOeee ;SAVED RHCS1 

017670 052737 O20000 003156 BIS #PIP, J#REINTO+30° SAVED RHDS1 

017676 042737 000200 BIC #DRY, J#REINTO+30 ;SAVED RHDS1 

017704 005737 001100 TST QaSPASS ;IS THIS. FIRST pags 

17710 001053 BNE cs F NOT FIRST PASS 

017712 032737 001140 IT spi , ONSWR : INHIBIT ER PRINT HIGH? 

01 001047 IF SWi3 HIGH 

ot O40 017730 TYPE 65$ ee ASCIZ STRING 

» pags: .ASCIZ ee privé" CONNECTED “STARE. By LAMP SHOULD BE LIT ON DRIVE NO / 
Paine 013746 001760 "MOV QeUNIT,-(SP) | ;UNIT UNDER TEST 
020036 104404 TYPOS 


SORE VENER ts Vii ca RE RAR BRMRMA da aaa ca aint 


;AFTER GO we BEEN & gt IVEN TO UNLOAD COMMAND 
i BeVED Beis ERS AGAIN SO THAT COMPARISONS CAN 





S 





wn 
+ 
8 


ee a ee ee 











Mal 





S 


rere 


mene 


Oo Os a ee Fe] 
DO NOU who 


es: 
soar 


euss 
by55 
54 
55 
Suse 
S427 020114 
2459 
S490 O20116 
E432 
2433 020120 
32 BSB So 
ey3e 
243g 
2439 
Sl Genie 
Sata 
Sits 
Bawa pSDige 
cuca | Sontje 
ayey wi7e 
Eye> 
eyed 
eyes 
sve 020200 
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TEST 


S$: 





JSR RO, J#SAVER ; SAVE 
RHWC 


;FROM 
WRF ROM 370 
19. ;NUMBER OF REGISTERS SAVED 


AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
s OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

T THE COMPARES ARE ONLY VALID FOR THe LOWER BYTE 
hove DBREINTO+25, DSWRFROM+2S; SAVE UPPER RHA 


;COMPARE REGISTERS BEFORE UNLOAD COMMAND 


* WITH AFTER GO 
SSR RO, 2#COMPAR ; COMPARE 
REIN : GOOD 
HF NRE RON TEST 
1$ RETURN FOR ERROR 
1 : SAME 


;RETURN FOR GOOD COMPARISON 
MOV SeeRAORD, RS GETTING READY TO INDEX 


ADD S,R5 DOUBLE ERROR WORD 
MOV Rwie=2(RS), DBREGADR ;FAILING REGISTER ADDRESS 


ERROR 1 ; IMPROPER REGISTER CHANGE 
AFTER UNLOAD COMMAND 
*WITH GO IS GIVEN 
RTS PC RETURN TO COMPARISON 
;NOW GIVE INIT AND GET ALL GO AND PIP DOWN 
a EREINSTATE ONIT NUMBER 
#DMD, JRHMR RET NB Tachost ie MODE G MODE BIT 


FAIS ENABLES COMMANDS WITHOUT MOL 
SAND HOLDS RHLA FROM MOVING 


; CHANGE pr gg Has BL EXPECTED VALUE 


Gon RI ENTTILIZE Sve REGISTERS SO THAT 
; SAVE 


RO, d#SAVER 
hare iFRON 
WRF ROM 310 
13. ;NUMBER OF REGISTERS SAVED 
;COMPARE REGISTERS AFTER INITIALIZE 


Seca n THE UppeR BvTe OF RPHS WILL BE SEVED A 13 
VALID FOR THE LOWER BYTE 


S ARE ONLY 
hove’ men 1K 0+25, JUWRFROM+2S; SAVE UPPER RHAS 
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5470 Oe0234 016537 
S471 Oe0e42 10400) 
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ISR RO, JWCOMPAR : COMPARE 
REINTO 00D BUFFER 

WRF ROM ‘TEST BUFFER 

19. ‘NUMBER OF REGISTERS TO BE 

: COMPARED 

3 sR TURN POINT FOR ERROR 

43 RETURN POINT FOR GOOD COMPARISON 
38: MOV JBERWORD, RS TTING Y TO INDEX 

ADD 

MOV RHUC-2(RS) , aanecioe® “FAILING REGISTER ADDRESS 

ERROR ; IMPROPER REGISTER 


;CONTENTS AFTER GIVING AN 
: UNL 


AN 
RTS PC ;RETURN TO COMPARISON 
4$: GOOD COMPARISON 


ee ee ce ee ee EE ee ae 


cs 


eer Ts 
DERPSB.P 


5482 
nee 
eyee 
5486 
5487 
S488 
83 
31 050880 
PS comm 
5494 
S495 
5496 020262 
a 
5500 
5501 
5503 B50502 
S504 
5505 
5506 
5507 
5508 
5509 
zei9 020310 
11 020316 
SSie de0322 
5513 
5514 
ESIB 203¢ 
551 P0330 
ss! 
zel8 
551 


HK 


Ge 8B Snes 


T43 
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|GET HEBER REE EE 
EST 44 OFFSET COMMAND TEST 


tk 
: THEN ALE T.COMMAND WILL BE LOADED INTO RHCS1 WITH GO 


PEN’ AL Ct REGISTERS: NEC BE CHECKED 
© KLERERKKERELLEKAAREKEAAALEAE KARA RERARALLE REAL LARA LRA KA LARK LKSE 
tST44: SCOP 

MOV 8STACK, SP ;RESET STACK 

MOV #TTNO,QNTSTNM ;THIS SAVES TEST NUMBER 


JSR PC, d#CLDISK 3 INIT we SET UP GENERAL REG. 


MOV #DMD, JRHMR Se the MODE BIT 
: THIS ENABLES COMMANDS WITHOUT MOL 


hee A FROM MOVING 
“GIVE ONE INDEX PULSE TO’CLEAR RHLA BEFORE THE START OF THIS TEST 
815 #MINX, JRHMR ;SET INDEX PULSE 

BIC #MINX; IRHMR >CLEAR INDEX 


370 ENABLE LOOP ON THIS TEST THE POSITIONER HAS TO 
;BE BROUGHT TO CENTER LINE 


MOV Sreeetins T DESIRED CYLINDER TO RHCC 
MOV JeSEECOM cA EK COMMAND TO RHCS1 
INC 3 TO SEEK COMMAND 
iB OuR SECTOR CLOCKS ARE GIVEN T9 TAKE POSITIONER OFF OFFSET POSITION 
S$: MOV aMSTCK!DMD, @RHNR’ -SET SECTOR CLOCK 
HOY #DMD, ORHMR’ sRESET SECTOR CLOCK 
BNE S BRANCH IF NOT COMPLETE 
JSR PC, @#CLDISK sINIT AND SET UP GENERAL REG. 
MOV #DMD, JRHMR SE Pies T TIC MODE oe a 
AND WBLbe RALA re on PROVING 


a A QRHCS1 ;LOAD AN OFFSET BIT 
F ‘SET AN OFFSET BIT 


oe neghsieh VEOR core AFTER GO 













SS 


HELE MAEM UR SRA aaa a ia ee 


e85 


a 
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003134 


052737 
Fees SSB) SBE 


o40S42 
1622 
002062 


113737 003153 


040736 


001620 


002107 


037534 


l6l1le 
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REINTO ;T0 
19. SNUMBER OF REGISTERS SAVED 


Apere OOS ORE e oete TO OFFSET COMMAND 


; CHANGE BGO DAREGHTONE. +80 TO eae a VALUES 


BIS gO, me inea : 

Bie SSP URE INTO HD eae “a 

sAFTER GO HAS BEEN GIVEN TO OFFSET COMMAND 
SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 







E DONE 
ip RO, J#SAVER ; SAVE 

RHIC {FROM 

WRFROM :TO 

19. :NUMBER OF REGISTERS SAVED 


AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

s OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
THAT THE COMPARES ARE ONLY VALIO FOR THE LOWER BYTE 

hove DEREINTO+2S, IBWRFROM+2S; SAVE UPPER RHAS 


;COMPARE REGISTERS BEFORE OFFSET COMMAND 
‘WITH AFTER GO 


is Rs RO, a#COMPAR ; COMPARE 
:GOOD BUFFER 
HR ;TEST BUFFER 
= PRETURN FOR ERROR 
2 ;RETURN FOR GOOD COMPARISON 


MOV O#ERWORD, RS 5 BETTING Re READY TO INDEX 


ADD RS,RS 
MOV RHIC-2(RS), aurechpoueee FRR ILING G REGISTER ADDRESS 
ERROR j IMPROPER REGISTER CHANGE 
COMMAND 
TTA oo I GIVEN : 
RTS PC *RETURN TO COMPARISON 


;NOW GIVE INIT AND GET ALL GO AND PIP DOWN 


BIS #CLR, OR2 RH INITILIZE 

MOV JSUNIT, RZ *REINSTATE UNIT 

MOV #OMD, JRHMR :SE IT 
sins S COMMANDS WITHOUT MOL 

"AND HOLDS RHLA FROM MOVI 





Ae ERNE ESS IREINTO# +b sated Fe 
BIC ioree JERE INTO+16; SAVE td 
BIC #PIP, Q#REINTO+30 ;SAVED RHDS1 
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Beusee Orers? lelore Oos170 


rae, 004037 O40S4e 
00 01be2 
002062 


020606 113737 003153 002107 


020614 004037 040736 


SAAS Sve 


e 
co 


0206 
psveds 016537 001620 037534 


RRR 
96 NIOrPUT.£ WITH 
Fe 


RE 
3 
it 
S 


BURROGR 


000004 
Oe06S6 012706 001000 
5638 O20662 012737 OO004S 004172 








S641 020670 004737 O40064 
S643 020674 012777 O00001 160746 





THY OFFSET COMMAND TEST 
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2) SAUSPNENA GSMS BE 
sAPTER INITIALIZE SAVE REGISTERS SO THAT 





“COMPARES CAN 
Sk RO, J#SAVER ; SAVE 

HWC : FROM 

WRF ROM ‘TO 

13. ‘NUMBER OF REGISTERS SAVED 


;AS_UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 

MOVB  §@SREINTO+25, JHWRFROM+25; SAVE UPPER RHAS 


; COMPARE ag ha B AFTER INITIALIZE 





ISR RO, a&COMP ; COMPARE 
REINTO ;G00D BUFFER 
WRFROM ‘TEST BUFFER 
"NUMBER OF REGISTERS TO BE 
? COMPARED 
35 ;RETURN POINT FOR ERROR 
4 RETURN POINT FOR GOOD COMPARISON 


3$: pid Q#ERWORD, RS ;GETTING READY TO INDEX 






D RS 
MOV RHAC-2(RS), aaREGADR ; *FAILING REGISTER ADDRESS 
ERROR IMPROPER REGISTER 
ONTENTS AFTER GIVING AN 
sINTIALL FOLLOWING A 
RTS PC “RETURN TO COMPARISON 
4§: :GOOD COMPARISON 







| UHHEEHHHE HBB EEHHHHE HHH THEE HHH HEEB HHH EEE HEHEHE 
ST 4S RETURN TO CENTER LINE COMMAND TEST 


T TURN TO CENTER LINE C WILL BE LOADED INTO RHCS1 WITH GO 
THEN L REGISTE “ic HECKED 


RS WILL 
RH CLEAR WILL BE GIVEN 


THEN ALL REGISTERS WILL BE CHECKED 
oo RELEAARAKE REELS LEAR AA RAA AHS LRE SEA SAAR RA KKK LE RE RA AAA AERA ZEEE 
tST4S: SCOPE 
#STACK, SP RESET STACK 
MOV #TTNO,Q#TSTNM ;THIS SAVES TEST NUMBER 






















JSR PC, d#CLDISK ;INIT AND SET UP GENERAL REG. 
;AND UNIT NUMBER 
MOV #DMD , ORHMR ;SET DIAGNOSTIC MODE BIT 
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S644 ; THIS ENABLES COMMANDS WITHOUT MOL 

eer ;AND HOLDS RHLA FROM MOVING 

S647 ;GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST 
56 Hauer 052777 000004 160740 BIS #MINX, JRHMR ;SET INDEX PULSE 

aay 020710 042777 O00004 160732 BIC #MINX, JRHMR CLEAR INDEX 








S654 020716 013777 002052 160704 MOV Q#RETCL,ORHCS! ;LOAD RETURN TO CENTER LINE COMMAND INTO RHCS1 







Bb56 -SAVE REGISTERS FOR COMPARISON AFTER GO 
24 004037 o40S42 15k RO, JH#SAVER ; SAVE 

5658 001622 RHWC : FROM 

5659 020732 003126 REINTO :TO 

B60 020734 000023 19. *NUMBER OF REGISTERS SAVED . 

5662 -GIVE GO TO RETURN TO CENTER LINE COMMAND “oy ‘ 

5663 020736 052777 OO0001l 160664 15 #60, JRHCS1 :GO TO RETURN TO CENTER COMMAND 2 








S665 

5666 sFOUR SECTOR CLOCKS ARE GIVEN TO TAKE POSITIONER TO CENTER LINE 
5667 020744 012700 OO0004 MOV #4. RO : R 

pbb8 020750 012777 OO0011 160672 SS: MOV #MSTCK! DMD, JRHMR T SECTOR CLOCK 

5669 020756 012777 OO0001 160664 MOV #0MD, JRHMR sRESET ste toR CLOCK 

5670 920764 005300 DEC RO 

5b71 020766 001370 BNE S$ ? BRANCH IF NOT COMPLETE 

5673 








5674 - CHANGE SAVED REGISTERS TO EXPECTED VALUES 
5675 020770 052737 000001 003134 BIS #G0, J#REINTO+6 ;SAVED RHCS1 

5676 020776 052737 Oe0000 003156 Bre aI?" J#REINTO+30 ;SAVED RHDS1 

6/7 021004 042737 O00200 003156 BIC #DRY, J#REINTO+30 :SAVED RHDS1 

5679 R GO HAS BEEN GIVEN TO RETURN TO CENTER LINE COMMAND 
5680 ISEVE Re REGISTERS AGAIN SO THAT COMPARISONS CAN 

S682 O21012 o04037 o4OS42 15h RO, a#SAVER ; SAVE 

5683 021016 OOl622 HWC : FROM 

S684 021020 O0206e2 EPROM :T0 

5685 021022 o00023 19. *NUMBER OF REGISTERS SAVED 














5687 ;AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
aa RTT Nae EORPREE STARE. OLY VALID TFOR TRE TOMER BYTE 
5690 21024 113737 003183 002107 HOVE D¥REINTO+25, JNWRFROM*2S; SAVE UPPER RHAS 
5692 
5693 COMPARE REGISTERS BEFORE RETURN TO CENTER LINE COMMAND 
p95 021032 004037 040736 ss R i ROvSACOMPAR =; COMPARE 
Bb 210% 00310 NTO :G00D BUFFER 
5697 02104 FIR RON ;TEST BUFFER 
5698 021042 000023 19. ; NUMBER 

| 5699 Oe1044 del0se 1s :RETURN FOR ERROR 

| 


S700 021 21052 14 s SAME 

270 O21 02107 2g RETURN FOR GOOD COMPARISON 

5703 O210S2 013705 o44S32 1S: Hoy ae A¥ERWORD, JRS sGETTING READY TO INDEX 

ecRd nogtea pep eds 001620 037534 iby RRUG=2.RS), aureci per Faun. REGISTER ADDRESS 

5706 O21066 104001 ERROR Abe PALIN TER CHA 

? : ‘AFTER eR eS TO CENTER LINE COMMAND 

| ‘WITH GO IS GIVEN 

2709 021070 000207 RTS PC RETURN TO COMPARISON 

eat ;NOW GIVE INIT AND GET ALL GO AND PIP DOWN 

5713 021072 oS2712 oo0040 2s: BIS #CLR, JR2 sRH_INITILIZE 

5714 621076 013712 001760 MOV JsUNIT. aRe ‘REINSTATE UNIT NUNBER 

5715 Oell02 012777 OO0001 160540 MOV DMD, JRHMR SET DIAGNOSTIC MODE BIT 

5716 THIS ENABLES SonMaRiDS WITHOUT MOL 

5717 AND HOLDS RHLA FROM MOVING 
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“CHANGE REGISTERS TO EXPECTED VALUE 
5720 021110 042737 000001 003134 BIC #G0, JHREINTO+6 ;SAVED RHCS1 
S721 021116 042737 Oe0000 003156 Bre SIP. @WREINTO+30 ; SAVED RHDS 
5722 021124 OS2737 O00e00 003156 BIS #DRY; JBREINTO+30 ;SAVED RHDS! 
e703 021132 017737 160526 003170 MOV SRHLAS J#REINTO+42; SAVED RHLA 
5725 . AFTER INITIALIZE SAVE REGISTERS SO THAT 
5726 * COMPARES CAN BE DONE 
5727 021140 004037 o4OS4e SR RO, J#SAVER ; SAVE 
5728 921144 O01622 RHWC : FROM 
3yg8 e114 002062 WRFROM :T0 
e730 1150 000023 19. "NUMBER OF REGISTERS SAVED 
5732 :AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
5733 ?OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
5734 *SQ THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
o735 021152 113737 003153 002107 MOVE  A#REINTO+25, JMWRFROM+2S; MoAVE UPPER RHAS 
5737 
5738 + COMPARE REGISTERS AFTER INITIALIZE 
5739 021160 004037 040736 SSR RO, a#COMP MPAR 
5740 021164 003126 REINTO 6000 BUFFER 
5741 Oell66 O0206e2 WRFROM TEST BUFFER 
erie 021170 000023 19. * NUMBER OF REGISTERS TO BE 
5744 021172 021200 3$ *RETURN POINT FOR ERROR 
5745 021174 021200 3$ : 
pate 021176 Oel220 4g “RETURN POINT FOR GOOD COMPARISON 
5748 021200 013705 044532 38: MOV JRERWORD, RS ;GETTING R READY T TO INDEX 
5749 021204 O60S05 ADD RS BLE ERR ac 
5750 O2le06 016537 001620 037534 MOV RHUC-2(RS) DWREGADR”- -F fine. REGI TER ADDRESS 
5751 Oel214 104001 ERROR s IMPROPER RE 
5752 :CON FONTS. BETER. at ING A 
5753 *INITIALIZE FOLLOWING A RETURN TO 
5754 ‘CENTER LINE COMMAND 


§755 021216 000207 RTS PC sRETURN TO COMPARISON 
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7%. 
THE RETUQN TO CENTER LINE COMMAND. 


e-28 021220 4: 6000 COMPARISON 
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DERPSS.P THs RETURN TO CENTER LINE COMMAND TEST 
$758 
5739 
$760 
aces $i RRERPRERSSREEESERESEEE ERASE ALES ES EASASEESEREE PEE ERESERSRESE SES 


#TEST 46 RECALIBRATE COMMAND TEST 


# THE RECALIBRATE COMMAND WILL BE LOADED ane RHCSi WITH GO 
* pen RLL REGISTERS WILL BE CHECKED 

+ H CLEAR WILL SE GIVEN 

* FHEN ALL REGISTERS WILL BE CHECKED 


senee 


©  SESPSRSERSFESRESESSAESESALFFARASSELELE FSA FERELSLESESSEAALFLELAELES 
G21220 oo0co4 tST4s: SCOPE 
Qel2ee Ole706 901000 MOV aSTACK, SP RESET STACK 
021226 012737 o000% 004172 MOV STTNO,38TSTNM  ;THIS SAVES TEST NUMBER 
021234 004737 C4064 JSR PC, J8CLDISK INIT AND SET UP GENERAL REG. 
:AND UNIT NUMBER 
g21240 012777 o0000: 160402 MOV 8D"D, IRHMR :SET DIAGNOSTIC MODE BIT 
: THIS ENRGLES COMMANDS WITH WITHOUT MOL 
AND HOLDS FROM MOVING 


-GI 
246 052777 cO0004 160374 815 SMINX, JRHMR ;SET INDEX 
254 042777 OO0004 180366 BIC SMINX; JRHMR CLEAR INDEX 


So CRRCR Sue RTM ase IATORER IA asda 


i 
| 
021262 013777 o02022 160340 MOV DBSRECALI,@RHCS1 ;LOAD RECALIBRATE COMMAND INTO RHCS! 
; “SAVE REGISTERS FOR COMPARISON AFTER GO 
021270 004037 o4OSHe2 Ris RO, J8SAVER : SAVE 
O21274 O01b22 RHWC : 
021276 003126 REINTO :T0 
921300 900023 19. ;NUMBER OF REGISTERS SAVED 
| “GIVE GO TO RECALIBRATE COMMAND 
| 021302 052777 00001 160320 815 #G0, IRHCS1 :G0 TO RECALIBRATE COMMAND 
| , JFOUR SECTOR CLOCKS ARE GIVEN TQ TAKE POSITIONER TO CYLINDER 0 
021310 012700 oo0004 R 

| 021314 012777 OOO0l1 160326 SS: MOV sMSTCK!DMD, ORHMR’ iSEr SECT OR CLOCK 
| 02162 2777 000001 160320 MOV #DMD, JRHMR® sRESET SECTOR CLOCK 
O21 Boe 300 DEC RO 
021332 001370 BNE +4 t BRANCH IF NOT COMPLETE 

5810 
| §eil sCHANGE SAVED REGISTERS TO EXPECTED VALUES 
| §812 021334 009001 003134 BIS 8G0, J8REINTO+6 ;SAVED RHCS1 

£813 Oelz42 052737 020000 003156 B15 8PIP, ISREINTO+30 ;SAVED RHDS1 





S814 021380 42737 003200 003156 Bic WORY, S#REINTO+30 ; SAVED RHDS1 


;AFTER GO HAS BEEN GIVEN TO RECALIBRATE COMMAND 
BANE (SSISTERS AGAIN SO THAT COMPARISONS CAN 


oyos4e2 hsR RO, 2eSAVER 


= b—9— 9 
Wo Tu 


wo 


;AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
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DERPSE Pit Tae --RECALIBRATE COMMAND TEST 
51378 matteo RHWC PROM 
East bei Sea Bees WRFROM :TO 
Bees 021365 o000e3 19. *NUMBER OF REGISTERS SAVED 
5824 AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
eee AQP era LOM THe UPR PTE OF ie WILL Fe caved BS doe 
S827 621370 113737 003153 002107 hove DBREINTO+25, JSWRFROM+2S; SAVE UPPER RHAS 
aes 
5830 ; COMPARE REGISTERS BEFORE RECALIBRATE COMMAND 
S832 021376 004037 040736 isa RO, J8COMPAR ; COMPARE 
5833 021402 003126 REINTO :G0CD BUFFER 
5834 21404 ocette EFRON ; TEST BUFFER 
5836 21419 021416 1$ ‘RETURN FOR ERROR 
6837 O2l4le Oel4ié 1$ : 
3B38 021414 021436 2s RETURN FOR GOOD COMPARISON 
| Bev 21416 013705 o44532 1S: MOV ASERWORD, RS GETTING READY TO INDEX 
| Bede Sel4e4 pepess 001620 037534 MOV RHIIC-2(RS) , @8REGADR “FAILING REGISTER ADDRESS 
5843 O21432 104001 ERROR 1 s IMPROPER REGISTER CHANGE 
Se44 AFTER RECALIBRATE 
Se4s WITH GO IS GIVEN 
| pve 021434 000207 RTS PC “RETURN TO COMPARISON 
| Se4e :NOW GIVE INIT AND GET ALL GO AND PIP DOWN 
epep 021436 oS2712 op0040 2s: BIS CLR are RH INITILIZE 
| §851 Oel44e 013712 001760 MOV  - QBUNIT, dRe sREINSTATE UNIT 
| §852 021446 012777 000001 160174 MOV s :SET BIAGHOSTIC MODE BIT 
| 5853 : THIS S COMMANDS WITHOUT MOL 
| Bee SAND HOLDS RHLA FROM MOVING 
“CHANGE REGISTERS TO TED VALUE 
epee 021454 042737 090001 003134 Ic REO USEREINTOSE” SSAVED RHCS1 
Sess Ocl4é6e 042737 020000 003156 BIC #PIP, J#REINTO+30° ;SAVED RHDS1 
Pe59 061470 37 000200 003156 BIS #ORY. J8REINTO+30 ;SAVEL RHDSL 
| 5860 1476 017737 160162 003170 MOV SRHLA, aSREINTO+42; SAVED RHLA 
8b sAPTER INITIALIZE nave REGISTERS SO THAT 
| S864 021504 004037 o4OSH2 SSR RO, J#SAVER ; SAVE 
«EE BIEN? lee on it 
| §867 21514 000023 19. ‘NUMBER OF REGISTERS SAVED 
| 











ett Te 
DERPSS.P 


000004 
566 012706 001000 MOV #STACK, SP ;RESET STACK 
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T46 RECALIBRATE COMMAND TEST 








;UPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 



















SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
: 021516 113737 002153 002107 hove DBREINTO+2S, JSWRFROM+25; SAVE UPPER RHAS 
- COMPARE REGISTERS QfFTER INITIALIZE 
904037 040736 SSR RO, aac 
003126 REINTO S000 gue BUF FER 
WRFROM ES 
peas 19. iNORGER OF REGISTERS TO BE 
021544 3$ ;RETURN INT FOR ERROR 
021544 3$ 
021564 4g RETURN POINT FOR GOOD COMPARISON 
013705 o44532 3S: MOV JSERWORD, RS ;GETTING READY TO INDEX 
O&0S05 ADD RS ERROR WORD 
016537 001620 937534 MOV RHIC-2(R5), asREGAOR “FAILING REGISTER ADDRESS 
104001 ERROR IMPROPER REGISTER 
+ ONTEN AFTER GIVING AN 
INIT A Ize FOLLOWING A 
*RECALIBRATE COMMAND 
000207 RTS PC RETURN TO TE ORPRTCON 











48: ;G00D COMPARISON 






5p LERERSLLELELLLAEELELLLLE LEELA LLALELALLLLLLLELLLAELALELLLALAAL ELE 
TEST 47 RELEASE COMMAND TEST 

3* 
ct 










THE RELEASE COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
THEN ALL REGISTERS WILL BE CHECKED 

RH CLEAR Hib a 

THEN ALL REGISTERS WILL BE CHECKED 


—~ saat prc peace atenanro ns papcamirsairaias see ate Sere bem pce: 
4 





012737 000047 004172 MOV STTNO,d8TSTNM ;THIS SAVES TEST NUMBER 
004737 040064 JSR PC, J8CLDISK ANT A aN ST Ue GENERAL REG. 
012777 O00001 160036 MOV #DMO, RHMR *SET HHAGNOSTEE MODE BIT 

sTHIS, SNRRLES, COMMANDS WETHOUT MOL 

FROM MOVING 
013777 o02026 160010 MOV QBRELEASE, DRHCS1 ;LOAD RELEASE COMMAND INTO RHCS1 
REGISTE COMPAR AFTER GO 

004037 o40s42 ise Bhs SC AVER® ae 
001622 
003126 


REINTO 
110 ees OF REGISTERS SAVED 
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bERPSE Pit Tar RELEASE COMMAND Test 


$326 

ease 1632 777 000001 157770 ape at Seueere ceenge TO RELEASE COMMAND 

2303 pe P35 pestee 909001 160002 BIS SND ORE SET DMD TO HOLD RHLA 

5931 sCHANGE SAVED REGISTERS TO EXPECTED VALUES 
5932 ‘AFTER GO HAS BEEN GIVEN TO RELEASE COMMAND 

S933 021646 052737 000001 003154 BIS #0MD. ASREINTO+26; SAVED RHMR 
2334 021654 017737 160004 003170 ate RHLA, DaRE INTO*D; -SAVED RHLA 
5936 
Be ;SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 
O21662 004037 o40S4e2 3SR RO, a8SAVER : SAVE 
5940 O21665 001622 RHWC : FROM 
5941 021670 02062 WRF ROM :T0 
: 021672 o00023 19. : NUNBER OF REGISTERS SAVED 
5944 AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
54S OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
Soup °S0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
Peat 021674 113737 003153 002107 MOVB aSREINTO+25, J8WRFROM+2S; SAVE UPPER RHAS 
5949 
5950 sCOMPARE REGISTERS BEFORE RELEASE COMMAND 
595 “WITH AFTER GO 
5 021702 004037 040736 3SR RO, J8COMPAR ; COMPARE 
5953 021706 003126 REINTO BUFFER 
5954 021710 O02062 WRFROM TES BUFFER 
5955 Oel7i2 19. NUMBER 
b356 1714 Oel722 1 *RETURN FOR ERROR 
17] Oel7ee 1 : 
2358 1 1742 2s *RETURN FOR GOOD COMPARISON 
5960 021722 013705 o44s532 1S: MOV JERWORD, RS rey REAYD TO INDEX 
Ed O21 7e ADD RS, RS : ERROR WORD 
1 1 001620 037534 MOV RioI-2(RS) , QURECH ILING REGISTER ADDRESS 

2363 021736 104001 ERROR 1 SI CHANGE 

5965 bal Go Is GIVEN 

5966 021740 o0fe07 RTS PC *RETURN TO COMPARISON 

5967 021742 2s: 

5968 

5969 

ear 

5972 $3 EERE ERE KKSE SHEE SKLAR K ESE SEESRERS ELRSELL ERE RE KE REAR SRRR ESSER RE 
2378 TEST SO MAKE CURRENT CYLINDER = 

374 ee ORR pee rigagmRRE same mneID can secre 
5975 021742 000004 +§Ts0: 

5976 021744 012706 001000 aa RESET STACK 

5977 021750 0047 37 040064 J3e PC, at INIT ORIVE 

5978 el 12777 00001 157666 SET DIAGNOSTIC MODE 
5979 Gel7b2 004037 O42400 WSR RO, OD ERE CYL SUBROUTINE TO GIVE A SEEK 
5980 i FOLOWED BY A INIT 
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BEAPSe pit Teo «Mace ABaent dv Proce 2 8 

S982 021766 000000 0 sCHANGE RHCC TO 0 

5983 

5984 

i 

Ft ae ae Aaa eee GREER re 
538 eT T 51 LOOK AHEAD REGISTER 

5990 s% 8 SEARCH COMMAND IS GIVEN FOR CYLINDER 0, TRACK 0, SECTOR 21. 
5991 is BHEAD PrTELD Is" ER Is. CHECKED. PETER -INDEX pulse 

2335 + Cea AGAIN AFTER 256 MORE BYTES 
5994 * tg he C ace FIELD | i Rue eye ES THEN neal 

5995S 1% HE END ALL REGI 

5997 te eee ee ee ee ee 
5998 021770 oO0004 +751: 

59°9 021772 012706 001000 Roy #STACK, SP RESET STACK 

Epo am 021776 012737 000051 004172 MOV STTNO,Q8TSTNM  ;THIS SAVES TEST NUMBER 
paps 022004 004737 040064 JSR PC, a#CLDISK ;INIT AND SET UP GENERAL REGISTERS 
Bape ii ; THESE ARE REGULAR SET UPS FOR COMMAND 
£008 022010 012777 000025 157616 Mov #21. , ORHDST 133 sett ar REGISTER 
6008 022016 005077 157620 CLR JRHCA DESIRED C R =0 

6009 Oe2022 012777 010000 157610 MOV 8FMTce, DRHOF FORMAT Biter wit: BITS PER WORD) 
B16 922030 013711 002030 MOV JaSERCH, aR1 *FILL SEARCH COMMAND IN RHCS1 

1 | SA GISTERS START NG FROM IN WRITE FROM BUFFER 
ppts 022034 004037 o40S4e2 ion" “ios ISVER VE REGIST! OMPARISON 
6014 ; AT ant END OF THe SEARCH 

6015 O22040 001622 RHWC *START SAVING FROM RHIC 

BO16 D22042 003126 REINTO *SAVE INTO REINTO 

B01? 022044 000023 19. *NUMBER OF REGISTERS SAVED 

6019 

02204 004767 O1E046 JSR PC, CHECKT ;CHECK DVA, RDY, DPR, DRY 


;NOW THE DIAGNOSTIC MODE BIT WILL BE SET 
;AND THE SEARCH OPERATION STARTED 


O220S2 005037 CLR OeSTMP1 3 THIS WILL HAVE THE EXPECTED 
— ; VALUE OF RHLA REGISTER 





SRREBRER UG INTERES 


02205& 013700 001650 MOV SRHMR, MAINT NANCE REG. ADDR. 
e068 017703 | i Gey DesiReD Sect PiRRCk REG” 
Dee Mare 1 ate #177400 i 
teste eri Soon my aS apie 
1 t 157520 Bs Sl : 
022110 052710 000010 BIS #MSTCK, JRO SET SECTOR CLOCK 
022114 042710 000010 BIC #MSTCK, ARO CLEAR SECTOR CLOCK 





ee 


3 
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“Oi 
b+ ps 
babe 
an 
ee 


LOOK AHEAD REGISTER 


a 


y 
ai 
fae | oe ] 


ne 


Reee sR 
qaag |S 


8 
r=9 
<= 
on 
<£ 


En 
ES 


ee 


Beet Lid yi cl WeRESPRARAIA dd aaaea aclu piduer ee reer ees fF 
g 





ee ee: 


| 
| 
| 
| 


;ALLOW TIME BETWEEN SECTOR CLOCKS 
BIS aMSTCK, JRO Fee ge ones 
BIC aMSTCK) JRO ;CLEAR SECTOR CLOCK 
NOP ;ALLOW TIME ae rae SECTOR CLOCKS 
BIS aMINX!MSTCK,ORO ;SET t X AND SECTOR CLOCK 
MOV #0MD, dRO ;RESET INDEX AND SECTOR CLOCK 
TST R3 ;IF SECTOR Seat D e QUT 
BEQ 11S ;BRANCH OF SECTOR ZERO REQUIRED 


H 
;AFTER THE INDEX PULSE RHLA WILL BE CHECKED TO BE ZERO 
“AND STMP4Y WILL BE SET UP TO COUNT BYTES 
MOV #608.,a8STMPY  ; THERE anne 608 BYTES PER SECTOR 


MOV DRHLA.aeSBODAT ;SAVE 
DRHOST,a#OST __: SAVE DESIRED CTOR TRACK 

CMP aeSTMP!, a#SBDDAT’ - RHLA HAVE EXTENSION 

- a FIELD EQUAL TO ZERO 

MOV SSECTR assTMPe ier T ‘ cTOR SOUGHT 

SUB 3, a8STMPe :§ NOW PRESENT SECTOR 

YET OE ee Pa ee 

MOV (SP)+, JaSTMPS ; PRESENT NT YT E NUMBER 

ERROR 24 * LOOK GISTER AT THE BEGINING OF A 
SP eTOR I IS IN ERROR 


A WORDS wi. he 


POR FiRS aT ey chore Ht BE INDEPENDENT OF 
sEPCTOR CL HEN IT WiLL ata FOREVER TILL 
;THE BEGINNING OF NEXT SECTOR 


;ONE WORD ONLY THAT IS TWO BYTES 


MOV #9. Re BYTE 
HOV te, “RS *BYTES PER WORD 
BIS SMSTCKIMCLK,9RO ;SET SECTOR AND CLOCK 
I SMSTCK!MCLK, ARO : ;CLEAR SECTOR AND CLOCK 
BIS SMCLK, T CL 
BI SNCLK’ ‘CLEAR CLOCK 
DEC R2 *BYTE COUNTER 
BNE ug ; BRANCH IF BYTE NOT COMPLETE 
DEC aeSTMPY BY TE C 
MOV #7,Re SETUP FOR SECOND BYTE 
DEC RS TS WORD 
BNE 3$ *BRENCH IF 


NOT CONPLET E 
TO GIVE SECTOR CLOCK AND CLOCK 


AS Se 


gee 


2 = 


aa 

a2 
= 

PE 
m 
Z 
S 
o 
a 
3D 
3 
2 
3 










ae bi 





-8 
R 
_ 
Oo 


ss = bn bo he 2 B= bs B= ae Be ann ae 0 2 ae ae 90 bs he Bn 2 fe be 0 ge ho he Pe me ae Fe Fae Ft Pe he ae fo b= Fo bBo ho 2 fe 


SHLFHESH~SSBVIKR SER BBBVRR POV Sees cow oSB VME 


LPN PKN CPSC KK PCM KPO O KRSM PCO CPO OOOO OOrrrwrrd 





§ 


SS ss ee 
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LOOK AHERD REGISTER 


73: 


001200 108: 


HLA MILL BE PGE READY FOR NEXT SECTOR 

















tA WILL 

au #64. ,RS 
aig Net eLB is fo S TO “ CHECKED 

MOV #127. ,R1 FIRST TINE eh EXTENSION FIELD 

MOV 

BIS Sng TEKEMCLK, oe a Rie EP cK 

IC SMSTCKEMCLK? a Sc AND CLOCK 

BIS SMCLK, 

8Ic #MCLK, 

DEC R2 had Bou OCKS PER VTE 

Bre gS TMPY i COUNT BROT DOLN SYTES 

BEQ 10s HOUT IF 608 BYTES DONE 
Count CHECK BOY TUF, OF FIELDT 

BNE i] *BRANCH IF EXTENSION FIELD NOT 
TO BE CHECKED YET 

NOW x ON FIELD OF THE LOOK AHEAD REGISTER 

TCL BE EREEKED 


820, 28S TMPL GET TO NEXT EXTENSION 
JRHLA,a8SBODAT GET RHLA FOR COMPARISON 


DRHDST,38OST —_; SAVE DESIRED SECTOR TRACK 
astel, aeseooar’ “CHECK VAL’ RHLA 


H IF 
DUSECTR, aUSTMP2 ; HGET. SECTOR, 50 SOUGHT 
R3, J8STMP2 NOW HAS PRESENT SECTOR 
8. ,-(SP) *NUMBER OF BYTES PER SECTOR 


US SiStivs see Sve UNGER On 


8 328 gencecoee 28 = 
i 


25 ERROR IN THE MIDDLE 
OF A A SEETOR IS IN ERROR 
RS,RS GET NEXT STEP TO CHECK EXTENSION FIELD 
RS, Rl : PUT IN N COUNTER ia 
Pa Net BORPLETE 
BIS aston ORO. TWO INSTRUCTIO GIVE 
BIC aNeTEK’ RO RO BE ele eyone 
NOP ALLOW SINE SECHEEN SECTOR CLOCK 


Ice Oa 


sBEFORE THE NEXT SECTOR 
pre rf iis Reg re NO oF SECTORS COMPLETE 


;NOW THE REQUIRED SECTOR IS REACHED 
; ONE y hl Sn OCK we BE GIVEN TO GET SECTOR PULSE 


Se 
5 
é 
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DERPSB.P TS1 LOOK AHEAD REG 


oerteataatesg 





o40S42 


003153 002107 


040736 


Thera 001620 037534 


PROC PKPKMPCK KKK KCK MCP K MMM PPO KKMOKOKKOMrrrrrr@d@wdc 
Ce ee ed ed ed ed ed ed ed eed ed ed ed ed ed ed ed ed dd ed ed ad ed ed ed eed ee eee 


BBSKRLGVLSSEVRRIBRE BIS IeaZIn-SSSGEHRLS 
4 
S 


RORRSe 


13S: 


O8-OCT-76 11:10 PAGE 127 
ISTER 


MOV #8. ,Re LOCK 
Rte gist. 


fees DOWN 
BNE ies ; BRANCH a 8 NOT DONE 
BIS aMSTCKIMCLK,@RO ;SET SECTOR AND CLOCK 
BIC WMSTCKIMCLK,@RO ;CLEAR SECTOR AND CLOCK 


;NOW ALL REGISTERS WILL BE_COMPARED 
$0 FILL EXPECTED VALUE INTO SAVED LOCATIONS 


BIS #SC,JB8REINTO+6 ; INCLUDE SC IN SAVED RHCS1 

BIS DBATTENT, J#REINTO+24 -FILL APPROPIATE ATTENTION 
;IN SAVED RHAS 

BIS 8OMD, QHREINTO+26° ; SET DMD IN RHMR SAVED 

BIS #ATA, JHREINTO+30 jSET ATA ATA IN RHDS1 SAVED 

MOV aeSTMPL, deRE INTO+42 MOVE EXPECTED VALUE 

ATO RHLA SAVED 


; AFTER peee core 
; SAVE REGIST AGAIN SO THAT COMPARES CAN BE DONE 


JSR. _—-RO, aNSAVER ; SAVE 

RHWIC :FROM 

WRFROM ‘TO 

19. ; NUMBER 

sAS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
sQPERATION T UPPER SYTE OF RHAS WILL BE SAVED AS IS 
130, THA ARE ONLY VALID FOR THE LOWER BYTE 


L 
Tite otha SaRFRONSS; SAVE UPPER RHAS 


;COMPARE REGISTERS BEFORE SEARCH WITH AFTER 
JSR RO, d#COMPAR ; COMPAR 


REINTO ;GO BUFFER 
WRFROM ; TEST BUFFER 

18. ; NUMBER 

13$ ;RETURN FOR ERROR 


13$ i SAME 
14S -  $RETURN FOR GOOD COMPARISON 
MOV SaERHORD, RS ; GETTING READY TO INDEX 


ADD «RS, RS ‘DOUBLE ERROR WORD 
MOV RHWC- =2(RS), DSREGADR ;FAILING REG. ADDRESS 


Re he eS 


4S: 
Salil ---io oh aaah 


tETEST 
téts2: 


NT CYLINDER = 0 

, SERENE ESURESULESEULESRESESLERESEDEOSSEREEGUEOERULEREEEEENERERE 
MOV #STAC RESET STACK 
JSR PC, aNcLDISk INIT DRIVE 
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MAKE CURRENT CYLINDER = 0 


000001 156760 
042400 


MAINDEC-11-DERPS-8 
DERPSB.P11 TS2 


SERRRERE 7 


— Pe bb 2 bo he pe he 
OO NOU £WwiU-O 


Fofororurufore 


3 


£ 


BONES 


% 
Bg 


Sn Mi unre ee Roe ae SD 
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MOV #OMD, JRHM SET DIAGNOSTIC NODE 
JSR RO, O AHAKECYL ee IVE iit 
‘THIS SHUO ail f C 
0 sCHANGE RHCC TO 
a i... Gate ieee ok GK he 
SETEST 53 WRITE HEADER AND DAT 
% WRITE CYLINDER 0 FORMAT 16 BIT PER WORD 
$x TRACK 0, SECTOR 0, K NUMBER OF WORDS 256 OF 0’S 
1 AS EVERY TH HING IS SEND T me PROVES VERY LITTLE 
2 ANY ERROR LOGIC IhBrcaTT T CONGLUS VE ON FIRST PASS 
2 BECAUSE ERROR LOGIC HAS NO BE MOHEERED YET (ON FIRST PASS) 
} ong 2 paceman ere reas gigas perenne OR RE Hi, 
MOV #STACK, SP RESET STACK 
MOV #TTNO,9#TSTNM ;THIS SAVES TEST NUMBER 
MOV #SECGAP, RO - POINTER 
MOV #304. Ri COUNTER 
1S: HOV #1, (ROD+ :CLEAR DISK AREA TO ALL ONES. 
BNE 1$ ; 
ISR Pe, CLDISK , ;THIS IS USED TO SET GENERAL 
REGISTERS 
; THESE ARE TO SET UP FOR DISKLESS USE ONLY 
MOV #FMT22,98WCYL  ;FORMAT 22216 BITWORDS AND 
“CYLINDER O 
CLR DeWSECTR s TRACK=0, SECTOR=0 
- CLR JaWKEY 1 sKEYI =0 
CLR DeWKEYe *KEYe=0 
MOV #256. ,a8FNWORD 3256 DATAWORDS 
JoR RS, aeCRC GO TO CALCULATE CRC 
GCRC 
THESE ARE REGULAR SETUPS 
MOV #-260.,dRHWC  ;256 DATA WORDS 4 HEADER WORDS 
MOV #WRFROM, RO >FROM BUFFER “WRFROM” 
MOV RO, JRHBA 3IN BUS ADDRESS 
MOV #259. .RS > COUNTER 
MOV #FNT22,(RO)+ FORMAT =16 BIT WORD 
a *CYLINDER= 





(RO)+ SECTOR=0, TRACK=0,KEYS=0, ALL DATA=0 
RS ; COUNT 
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eet Te 
DERPSB.P WRITE HEADER AND DAT 


BE CRRE RC RSa EASE ER EB SRE REE SG 


patel at ahah ty ay) 
Ce ee ee ee ee oe ol 
NOU ELWMHO 






totk 3 11:10 PAGE 129 


BNE Bost sORANCH TF BL 259 NOT CONPLETE 





JSR PC, CHECKT ;CHECK DVA, RDY, DFR, DRY 


MOV . @#WRIFOR,OR1 ;GET oar i FOR WRITE HEADER 
SAND DATA ee 62 IN RHCS1 


CLR OsERFLGS ;CLEAR ERR 
we #FMT2e, JRHOF sFORMAT BIT=1 ie BIT WORDS 
JSR PC, d#COMWHD SURITE PO EADER AND DATA 


;1F THE PROGRAM Cres BACK HERE a TouT pee 
;PRINT OUTS FROM THE “COMWHD” ROUTINE THAT MEANS 

L_ HEADER ON DISK. IS 2090 TE. _ONLY oATA IS 
tO BE CHECKED TO SEE IF IT 
SAND WITE_DATA GAP AND TOLERANCE GAP TO SEE IF THEY 
SARE ALL ZEROS, ONLY ECCI AND ECCe MAY NOT BE O 


TST OsERFLGS ;HAS ANY ERRORS OCCURED? 
BNE TSTS4 ;;BRANCH IF YES 


JSR PC, JSCHECKE CHECK DVA,RDY,DRY,DPR 
CLR DHHECCL CLEAR ECC’ 


CLR aeWECCe 
;REINTO BUFFER IS rae WITH EXPECTED DATA 
JSR RO, J#CLAREA RON “RE INTO” 


RE NTO 
REINTO+<272.#2> ” 


TO 
.WORD 0 FILL with ZEROS 
CLR O#ERFLGS ;CLEAR ERROR FLAG 
;COMPARE “REINTO" WITH “DISK™ BUFFER 
JSR RO, J#COMPAR 
REINTO : GOOD SUFFER 
DISK : TEST BUFFER 
273. *N WORDS CHECKED 
3$ RETURN POINT FOR ERROR HEADER 
4§ *RETURN POINT FOR ERROR DATA 
TSTSY ;RETURN FOR GOOD COMPARISON 
"3S: ERROR 7 READ ERRORLO NEXT 
PC "RETURN TO “COMPAR” 
4g: ERROR 10 ; WORD NOS 1 TO 256 ARE 
DATA WORDS 
257 AND 258 ARE ECC 
ZEROED OUT 


3259 TO 273 TOLERANCE GAP 




































- 
- 
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DERPSB.P11 TS4 WRITE HEADER AND DATA 2 


74 023334 004767 014560 JSR PC, CHECKT ;CHECK DVA, RDY, DPR, DRY 


6377 023340 013711 Oo02040 MOV DHWRIFOR,IR1  § ;GET READY FOR WRITE HEADER AND 
6378 ;DATA WITH 62 IN RHCSI 
6379 p233u 00177 CLR DHERFLGS ‘CLEAR ERROR FLAGY 

pos0s. 10006 156262 MOV #FNT2e,JRHOF FORMAT BIT=1 (16 BIT WORDS) 
6381 023356 005077 156260 CLR JRHCA CYLINDER =0 
382 Q23362 004737 047372 JSR PC, J#COMWHD ‘WRITE HEADER AND DATA 
6384 IF THE PROGRAN CONES BACK HERE WITHOUT ERROR PRINTOUTS 
£385 *FROM T T MEANS ALL HEADE DISK 
6387 DAT 0 TO SE 
6388 i THEY ARE ALL ZEROS, ONLY ECC1 AND: ECC2 ARE NOT CHECKED 
6330 023366 005737 001772 TST O#ERFLGS sHAS ANY ERRORS OCCURED? 
6392 023372 001036 BNE TSTSS ;;BRANCH IF YES 
Page 023374 004737 040302 JSR PC, JCHECKE ;CHECK DVA,RDY,DRY, DPR 
6395 023400 005037 047330 CLR DeHECC1 *CLEAR ECC’ 
63% 023404 005037 047332 CLR aHWECCE CLEAR ECC 
6397 sFILL “REINTO” BUFFER WITH EXPECTED DAT 
6398 023410 004037 o40002 JSR RO, JHCLAREA ira REINTO BUFFER 
6399 023414 003126 REINT OM 
6400 023416 004124 REINTO+<255.*2> ° :TO 
6401 O23420 177777 WO ah 
6402 Oes422 004037 o40002 JSR aeCLAREA PILL REST 
6403 023426 004126 BP INTO# ooh ¥2) FROM Pa 
6404 023430 004166 REINTO+(272. #2) :T0 : 
640S 023432 o00000 0 :DATA 


aH 023434 005037 001772 CLR O#ERFLGS ;CLEAR ERROR FLAG 


6410 % 
6411 ;NOW COMPARE “DISK” BUFFER WITH “REINTO™ 
6412 023440 004037 040736 JSR RO, d#COMPAR 3 CHECK 
6413 Oe3444 003126 REINTO ;G00D BUFFER 
6414 O2e3446 046330 DISK ;TEST BUFFER 
6415 023450 o004el 273. ;NUMBER OF WORDS CHECKED 
6416 Oe34Se 023460 4$ RETURN POINT FOR ERROR HEADER 
tA 023454 023464 S$ sRETURN POINT FOR ERROR DATA 
ate 023456 023470 TSTSS ;RETURN FOR GOOD COMPARISON 
pis pes ie8 io" 4S: ERROR 7 ;READ FREER 10 NEXT 

4 34 0207 RTS PC RETURN TO COMPARE 

6423 O23464 104010 S$: ERROR 10 WORD NOS 1 TO 256 ARE 

6424 DATA WORDS 

6425 WORD NOS 257 AND 258 

puss ; ARE ECC WHICH HAVE BEEN 
6428 + HORD NOS 259 


6429 ;1S DATA GAP 
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HEADER AND DATA 2 
; WORD ioe 260 70 273 
TARE TOLERANCE GAP 
RTS PC RETURN TO COMPARE > 
- itrer Ge URITE HEADER AND DATA nea 
: WRITE CYL INDER O FORMAT 16 BITS PER WORD 
# TRAC SECTOR 1, KEY 0, NUMBER OF WORDS 256 
2 # AT TERNATE ONES att ROS (052525) 
# ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS 
3* BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 
i Ts ae ammme ng 9 yea hecrgemereenmecrne nme ment 
MOV sSTACK, SP RESET STACK 
004172 MOV #TTNO,d8TSTNM  ;THIS SAVES TEST NUMBER 
MOV sSECGAP, RO POINTER 
MOV #304. Rf : COUNTER 
1S: ROY 4277, {RO)+ “CLEAR SIMULATED DISK AREA WITH 377 
BNE 1§ 
JSR PC, CLDISK sTHIS IS USED TO SET GENERAL 
REGISTERS 
-THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
047516 MOV SFMT22,a8WCYL  ;FORMAT 22216 BIT WORDS AND 
047520 MOV 8401, 98WSECTR ;TRACK=1, SECTOR=1 
CLR aewkEY 1 *KEY1= 
CLR SeuKEYS *KEYesO 
047556 MOV 8256. ,a8FNWORD 3256 DATA WORDS 
JSR RS, a@CRC GO TO CALCULATE CRC cel 
WOYL 
GCRC 
; THESE ARE REGULAR SETUPS 
156022 MOV 8-260. DRHWC © ;256 DATA WORDS 4 HE 
MOV SuRFROM. RO : THESE TWO INSTRUCTIONS cere 
ADDR. OF WRFROM INTO RO 
MOV RO, @RHBA "AND BUS ADDRESS REGISTER 
MOV sFMT22, (RO)+ sromeaTsss BIT WORDS 
2s: MOV e401 (RO)+ STASI, SECTOR=1, KEYS=0 


CLR 4 
CLR tf “ *KEYe= 
#256. ,RS : COUNT 
38: MOV 8052525, (RO)+ MOVE ALTERNAT ONES FOR DATA 
























6485 023634 005705 DEC sé s COUNT 
487 Ge2636 O01ac3 BNE -:38 "BRANCH IF DATA NOT COMPLETE 
g Ol 000401 155766 MOV  WHOL,@RHDST =—«: TRACK=1. SECTOR=1 


6492 023646 S04767 O14246 JSR PC, CHECKT ;CHECK DVA, RDY, OPR, ORY 


6494 023652 013711 002040 MOV JeWRIFOR, ORL ;GET READY FOR WRITE HEADER 
6495 : AND DATA WITH 62 IN RHCS! 
649 Oe 005037 001772 CLR asERFLCS CLEAR ERROR FLAG 

e497 Oe Qle777 010000 155750 MOV sFMTee, aRHOF FORMAT BIT=1(16 BIT WORDS 
§498 023670 005077 133038 CLR @RHCA ;CYLINDER=0 
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7372 JSR PC, JBCOMMHD =»; WRITE HEADER AND DATA 
} 
i 
j 
| 
| 
j 
| 
| 


6501 IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
£502 “FROM THE “COMWHD™ ROUTINE THAT MEANS ALL HEADER ON 
6503 sDISK IS GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE 
6504 LIF THEY ARE ALL O20 AND WRITE DATA GAP AND 
£505 “TOLERANCE GAP TO SEE IF THEY ARE ALL ZEROS 
£506 [ONLY ECC] AND ECC2 ARE NOT CHECKED 
Fen, 023700 005737 001772 TST QsERFLCS sHAS ANY ERRORS OCCURED? 
510 023704 001036 BNE TSTS6 ;;BRANCH IF YES 
b5ig 023705 004737 ISR PC, J8CHECKE ;CHECK DVA,RDY,DRY,DPR 
6513 023712 047330 CLR aewECCL ; CLEAR ECC’ 
6514 923716 005037 047332 CLR JRWECCS CLEAR ECC 
6515 SFILL “REINTO™ BUFFER WITH EXPECTED DATA 
6516 O23722 S04037 o4cOoe JSR RO, J#CLAREA sFILL REINTO BUFFER 
Ba bys Bis EMBs sy 
ceig tease pseeee iO 
6520 023734 004037 o40002 JSR RO, JSCLAREA FILL REST 
6521 023740 bow 12 perntoe coat TOF ess. #2) - >FROM 
Fes rae ee .WORD «OO DATA 
6524 
bese SF 023746 905037 001772 CLR OsERFLCS CLEAR ERROR FLAG 
fesg = 
b5¢9 :NOW COMPARE “DISK” BUFFER WITH “REINTO” 
023752 004037 040736 JSR RO, J8COMPAR ; CHECK 
| 6531 023756 003126 REINTO :GO0D BUFFER 
boxe 023760 DISK ;TEST BUFFER 
0237b6e el 273. "NUMBER OF WORDS CHECKED 
| §534 023764 023772 4§ *RETURN POINT FOR ERROR HEADER 
| §535 063766 023776 S$ “RETURN POINT FOR ERROR DATA 
| fess 3 023770 o2400e2 TSTS& sRETURN FOR GOOD COMPARISON 
Fe3g 023772 104007 4$: ERROR 7? ;READ ERROR 10 NEXT 
6540 023774 000207 RTS PC ; RETURN TO COMPARE 
6541 023776 !04010 cs: ERROR 10 “WORD NOS 1 TO 256 ARE 


+ ee ee 


Y aieeeentinietetieeteeienemettlie kena EE EE EEE acca, | 
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654 ;DATA WORDS 
654 ;WORD NOS 257 AND 253 
6544 5 BRE ECC WHICH HAVE BEEN 
6546 ‘FORD is 259 
6547 15 DATA 
6548 ;WORD NOS 260 TO 273 
6549 ARE TOLERANCE GAP 

024008 o00207 RTS PC RETURN TO COMPARE 


aa. imam aa oe oo. 
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6550 
6551 
6552 
£553 
6554 
ES ti T Sb PROGRAM ERROR RHCS2 
6559 3# WRITE . Sr BeyeR"s 0 FORMAT 16 BIT PER WORD 
6550 Ce TRACK NUMBER OF WORDS 256 OF 0°S 
6561 i WHILE GO Blt 1S a ENSTHER GO IS GIVEN THIS SHOULD SET 
fees ss gas 
est4 ©  SESLLRELSSESFKSLESSESELELELELASASLAS FELL SLALAEAAEASLFL RESELL AESELSE 
6565 oe4002 ocoocy téTSt: SCOPE 
B56 024004 012706 001000 MOV #STACK, SP RESET STACK 
6568 
569 024010 012737 o000S6 004172 MOV STTNO,d8TSTNM  ;THIS SAVES TEST NUMBER 
6571 O24016 012700 o46232 MOV SSECGAP, RO POINTER 
| §572 Gew0ee 012701 00460 MOV #304. , RI ; COUNTER 
6573 O24025 012720 177777 1S: MOV 8-1, (RO)+ CLEAR DISK AREA TO ALL ONES. 
| £574 1 DEC RI H 
be7 1374 BNE 1§ ; e 
767 014022 J PC, CLDISK sTHIS IS USED TO SET GENERAL 
| 6577 ; REGISTERS 
feo ; THESE ARE TO SET UP FOR DISKLESS USE ONLY 
| BEB O24042 012737 010000 047516 MOV SFMT22, SWCYL Ag 22=16 BITWORDS AND 
6583 47520 CLR SewSECTR j TRICO, SECTOR=0 
| 6584 Beugen Dosoay tNvESe CLR @eWKEY] ;KEY1=0 
| Eeee BSupes 50 ON7SSE Soe See Ser NWORD sKEyers TAWORDS 
a] tere l24e ISR RE sate G0 TO CALCULATE CRC 
| 6588 7516 WeYL 
p89 024100 
i 
| beat ; THESE ARE REGULAR SETUPS 
6593 0241 1 1s5512 MOV 8-260. , IRHWC DATA WORDS 4 HEADER WORDS 
| £534 195 1e70g MOV SURERON RO iF M BUFFER “WRFROM™ 
| 6595 114 O1 155504 MOV RO, dRHBA SIN BUS ADDRESS 
659% 024120 012705 000403 MOV #259. .RS ; COUNTER 
6597 Oe4124 012720 010000 MOV #FNT22,(RO)+ ;FORMAT =16 BIT WORD 


' 
' 
! 
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cesg Son 005020 
eui33 Obr37e 
024136 7? 15547e 


013752 
02414 013711 02040 
024152 005037 001772 


SA AAAAA AALS 
2 
: 


pelt feats 012777 010000 

Gi RIS Hae ds 

peta 024176 OSe777 000001 

Bie SS BP coms 

6618 Oe4e14 004737 037470 
1 


O24, 13727 001626 
104037 


SP EDSEMAAAAAASAS ASAE SALAS 
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sCYLINDER=0 
2s: CLR {80+ s SECTOR=O, TRACK=0,KEYS=0, ALL DATA=0 
Bre 2 *BRANCH IF ALL 259 NOT COMPLETE 
CLR JRHDST *TRACK=0, SECTOR=0 
JSR PC, CHECKT sCHECK DVA, ROY, DPR, ORY 


MOV OSWRIFOR, ORI ;GET READY FOR WRITE HEADER 


CLR -@BERFLGS SOND AR ERROR Fue 2% RHCS! 


MOV #FMT22,dRHOF  ;FORMAT BIT=1 16 BIT WORDS 
JRHCA CYL R 

MOV #0MD, JRHMR SET DIAGNOSTIC MODE 

BIS #60, SRHCS1 :G0 


BIS #G0, RHCS1 ;THIS GO SHOULD SET PGE 


JSR PC, JSPUTREG ;SAVE REGISTERS 
T PGE, d8CS1 : T 


Q 3s ; H IF GOOD 
MOV dSRHCS2, J#SBDADR 
ERROR 37 ;PGE DID NOT SET WHEN A WRITE 
;WAS ATTEMPTED WITH ONE IN PROGRESS 


ss ELEEEAESESLALLLAALELE LEASES? LALAELELLLLELELELALLLLELEALALLELALS 


+ THESE TESTS ARE THROUGH THE MAINTAINABILITY REGISTER 
* THE SECTOR GAP AND SYNC BYTE ARE ALWAYS READ AS 
1% ZEROS AND 144000 NO MATTER WHAT IS IN THE SIMULATED DISK AREA 
3% ee : ae WS $ 
;* ® 
T CONSISTI CYLINDER ADDRESS, SECTOR/ 
Me RES Sterone, KEYIS AND KEYS AND NOT FRON 
i te DER: ON Stren TED Disk ISK LOCATION WCRC 
+ Pe OER IS eae Sends NO MATTER 
+ WHAT IS ON THE SIMULATED DISK AREA 
2 THE DATA SYNC 18 READ FROM HDWSYN: 
i ON SIMULATED DISK 
* ALL DATA IS READ FROM SIMULATED DISK DISK: 


5 RERERSELELLLE SELLERS LARRLLALL EE LLA EEE LARALLAARAA LEAL LEALE RAR EALE 


ee HANAN TAD HEROFR AND DATA Le 
;# READ CYLINDER 0 FORMAT 16 BITS PER WORD 


te ANY” ERROR LOGIC PAOTEATIONS ARE NOT CONCLUSIVE ON FIRST PASS 
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B65Y Le BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 
rt) 9 1 gn tapas er gamma gee re SES OR Ne IR: 
bes8 Resde Beebe oc1o00 ‘* HOV SSTACK, SP sRESET STACK 
665 
6661 Oe4246 012737 000057 004172 MOV STTNO,DSTSTNM ©; THIS SAVES TEST NUMBER 
Epes 
6564 
E565 ; SETUP FOR WHAT IS TO BE READ 
Bee pes ; HEADER CRC IS RESTORED FROM A SUBROUTINE 

1 MOV #0 -(SP)  ;DATA TO BE READ 
PPPS pedseq pier te MOV 8256., RS COUNTER 

70 264 12700 MOV #DISK, RO :START OF partner D DISK DATA 
657 11 1S: HOY (SP), (RO)+ MOVE IN DATA ON TO SIMULATED DISK 
9 
: F T T 
En iin Be Hye ipaue se vo comers 
6575 024300 012705 000021 MOV #17., RS 32 ECC WORDS 
66 :1 DATA GAP 
6 14 TOLERANCE GAP 
6578 024304 005020 2s: CLR (RO)+ ;CLEAR ECC, DATA GAP, AND 
6579 O24 005305 DEC RS TOLERANCE. 
b680 024310 001375 “BRANCH IF NOT COMPLETE 
bees THESE ARE TO SETUP FOR DISKLESS USE ONLY 
eres 024312 012737 MOV #0! FMT22, asCYL 16 ITS PER WORD 
bbG6 YLINDER 0, FORMAT 16 BITS 
024320 112737 MOVB sa, DeSECOTR+I TRACK OY 
6688 024326 alee HOVE 40, ae, ise o 
beso Sease 15733 HOV 00, gnKeye ike 
bb Gsee mosg7 CLR aex ’ rusia sis % BAAD CORMAND 
J RS, a8CRC *GO TO CALCULATE CRC 
6694 024366 O44412 CYL 
6695 024370 O4631e2 WCRC 
cea? 
eeag 024372 O04 040064 in ee BRCLDIGK SETUP GENERAL REG REGIS TERS 
| Be ie tie ie es Siig Sa wor 

Bros Geunte 127% 00000 Hove Te) HIN COMER eae 
6703 16 112766 000000 000001 MOVB 1. ce ery IN HIGHER 
6704 eal e677 16 MOV + CT INR RHDS 

1 1 1sS202 MOV aPnTosiecd. OE HOF -16 BITS PER WORD 





ie EPL AY Bh 


CLR JRHCA CYLINDER 0 





3 
ea} 
: 
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6710 
bell oe4442 004737 040120 ISR PC, DBCHECKT ;CHECK FOR DVA,RDY,MOL, DPR, DRY 
? 4 MOV #R R ATA=?7 
Bote Beides Baards BarOI HOR SEBREPRgOR! = READ HEARER OND EROR FL 
Beis O2e4456 004737 044302 JSR PC, JSCOMHD ;READ webbER AND DATA 
671 
7} FT PROGRAM c K HERE sHETHOUT OR PRINTOUTS 
pris Fon ie Poe BOB TENE. TH THT NeANS, SECTOR oT oR oR Ge, 
P55 eRe ay ots Ee TNC, HERE HEAR SYNCS scHEEDER CBRRECTY 
6722 sate 
6723 *HEADER AND DATA ARE To BE CHECKED. 
6724 IN CHECKING READ DATA THE WRITE FROM BUFFER 
6725 :"WRFROM” IS FILLED WITH EXPECTED DATA AND 
b7eb *COMPARISONS ARE MADE 
B 024462 005737 901772 TST OSERFLGS sANY ERRORS ALREADY THERE 
6230 024466 001043 BNE TST60 BRANCH IF YES 
6 70 JSR PC, J8CHECKE ;CHECK DVA, DRY, RDY, DPR 
£535 aes pos MOV #WRFROM, RO GETTING Y’TO FILL EXPECTED DATA 
pose BSueoe Tissue HOV ag! FINTe2, (RO}+ sm UKER BYTE GET SECTOR 
6736 024510 112766 MO i 1(5P) 3GET or CK IN HIGHER BYTE 
6737 024516 12620 HOV (SP)+, (RO)+ >GET TRACK /SECTOR IN BUFFER 
e733 poueed Oisre0 850000 wy Og. he YL i 
6740 OGe4S30 012701 900400 MOV #256., Ri “DATA WORD COUNTER 
ta 024534 O1e70¢ 000000 MOV 80, R2 : DATA 
6 024540 010220 3$ Re, (RO)+ DATA INTO BUFFER 
6743 O24542 005301 DEC RI : 
bait 024544 001375 BNE 3$ *BRANCH IF 256 NOT DONE 
bre ;NOW READ DATA BUFFER WILL BE CHECKED 
6748 O2454 004037 040736 JSR RO, 28COMPAR ; CHECK 
Boag REIN Tee? BUEE 
1 REINTO : 
2B ees ee — ern Born Pn HE cen 
753 024572 S *RE POINT FOR E DATA 
| 6755 024564 024576 TST6O sRETURN FOR GOOD COMPARISON 
4S: RROR 4 AD_NEXT ERROR 
| Pree Gev70 need TS PC "RETURN TO “COMPAR” 
| 6759 104005 Ss: 5 *WORD NOS 1 TO 4 ARE 
| 6760 “HEADER WORDS pion : 
bree 024574 000207 RTs iB, 70.ce9 Ae DBT » ats 
| 6764 
| 6765 
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6 
is 
6768 
Be 
6771 han cH ROR IPED pen wmo 
;# : 
ae beso cn RN PORE IP ENE vee oro 
Pore . ANY ERROR LOGIC. ThOIEAT! WORT CONCLUSTVE_ON FIRST PASS 
6776 te BECAUSE ERROR gical Oe BE BEEN CHEERED cette (ON FIRST PASS) 
6778 © EKREREREEERLEREAAEE AAA ALE KALE SRL ELEAARE AE SLA LEA RKEAARELAHLAREES 
Pres ABSES ARR? teas 
6780 l 001000 MOV #STACK, S? RESET STACK 
6782 
783 024604 012737 O00060 004172 MOV #TTNO,a8TSTNM ;THIS SAVES TEST NUMBER 
5785 
6786 
6787 ; SETUP FOR WHAT IS TO BE READ 
6788 : HEADER CRC IS RESTORED FROM A SUBROUTINE 
Po8a 024612 01274 177777 MOV #-1 -(SP) ;DATA TO BE READ 
Poa mates TE ‘i Bae 330 wer HOV ae RB scouNT OF SIMULATED DISK DATA 
£385 ata Bi ee0 1S: MOV (SP), (RO)+ $MOVE_IN DATA ON TO SIMULATED DISK 
6794 924630 DEC RS :C 
6795 Devoe 001375 1$ *BRANCH IF 256 NOT COMPLETE 
5796 005726 S (SP)+ “UNDO -(SP) 
6797 024636 012705 000021 MOV #17., RS 2 ECC WORDS 
6798 :1 DATA GAP 
6799 14 T GAP 
6800 oe4642 005020 2s: CLR (RO)+ CLEAR ECC, DATA GAP, AND 
6801 Oe4644 DEC RS : TOLERANCE GAP 
208 Ce4646 001375 BNE 2s *BRANCH IF NOT COMPLETE 
6804 
6805 sTHESE ARE TO SETUP FOR DISKLESS USE ONLY 
Pen 024656 012737 010000 o444ie MOV #O!FMT2Z2 QeCYL ;16 BITS PER WORD 
6808 - - . : “CYLINDER 0, FORMAT 16 BITS 
6809 024656 112737 000000 o44415 MOVE = 80, DUSECOTR+1 = TRACK 
6810 1 14 MOVE al, gUSECOTR eect 1 
ae ot 16 MOV : Y1 ;KEYi= 
Pet5 70 1 Bag HOV oe, SPOWORD aa 
bel Gev714 bey CLR aux 7 oe tal tHIs a BPREAD Co READ CO RMAND 
1S 124 JSR , B8CRC © CALCULATE CRC 
bE16 024724 Ouiie YL 
p81? 024726 04631 WCRC 


RS 


“THESE ARE REGULAR SETUPS 
040064 SSR PC, JHCLDISK ;SETUP GENERAL REGISTERS 


: 
8 
3S 
2 
8 





ee 
i 
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024734 012777 177374 154660 MOV #-256.-4. ,RHWC ;256. DATA 4 HEADER WORD 
024742 012777 003126 154654 MOV SREINTO ic ae BOOR aes a sere 
SU eon = ee ee ey 
024766 Bis biuecd 1S4644 MOV aenTodtEcT aRHOF’ ie 81 Btfe Pon WORD 
C CORREC fon INHIBIT 
i aca WES eis NO NOT GOING 
024774 905077 1S4642 CLR JRHCA fg 5K 
025000 004737 o40120 ISR PC, senaeet CHECK FOR DVA,RDY,MOL,DPR, DRY 
MOV #REFOR, OR] ; READ HEADER ATA 
ant phaa4s Near CLR OeEREL c$ LEAR 
025014 904737 044302 JSR PC, QSCOMHD ;READ HEADER AND bara 


;1F THE PROGRAM COMES ie HERE WITHOUT Ton Gop “nettetig 
ROM THE “COMHD® et ® THAT MEANS F gte 


sEIRST.S : ve HAVE Gone cone BY AR AND 5 Sines hi oleh 


sDeT EcRED 
AND DATA ARE To BE CHECKED. 
iH ee HECKING READ DATA THE WRITE FROM BUFFER 
:“WRFROM” IS FILLED WITH EXPECTED DATA AND 
:COMPARISONS ARE MADE 
005737 001772 TST DeERFLCS sANY ERRORS ALREADY THERE 
025024 001043 BNE TST61  ;BRANCH IF YES if 
J PC, DUCHECKE ~ 

besase ote700 Baebes V SWRFROM, RO mie TO vith EXPECTED DATA 

1 01 MOV #0! FMT22, (RO)+ 
Gente il 000001 MOVE sal, =(SP) :IN LOWER BYTE GET SECTOR 

ul 000000 oo0001 MOVE 80 1(5P)  $GET TRACK IN HIGHER BYT 
1 MOV (SP)+, (RO)+  3GET TRACK/SECTOR IN SUFFER 
012720 00000 MOV #0, (RO)+  3KEY1 IN BUFFER 

1 000000 MOV #0 (RO)+ iKEVS IN BUFFER 
D250e6 12701 0004 MOV #256., RI : DAT COUNTER 

1 pea MOV #-1, ° Re : DATA 
028076 010220 38: MOV Re, (RO)+ DATA INTO BUFFER 
eS 005301 DEC Ri > COUNT 

102 001375 BNE 3¢ ;BRANCH IF 256 NOT DONE 


;NOW READ DATA BUFFER WILL BE CHECKED 
JSR RO, J#COMPAR ; CHECK 
tr 


eure HS BFFER 
pans peINT £9 Fie cence bara 


TST61 ;RETURN FOR GOOD COMPARISON 


en a oo 


8 Sezno® 
Serene 
2 8? 


SSE PREM Gas biaca aii uividMuleee tee eee arias aanyiict tite fF 


St ORG 


1 
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HEADER AND DAT 
ca 9251 4 104 04 4S: ERROR 4 sREAD_NEXT ERROR 
Sl 0207 RTS PC *RETURN TO “COMPAR” 
025130 104005 S$: ERROR 5 sWORD NOS 1 TO 4 ARE 
cess TR eed ARE 
‘5 TO 260 ARE DATA WORDS 
6884 025132 900207 RTS PC RETURN TO “COMPAR” 
re 3 
6887 
6888 
£889 
Bag Bat 
g°92 3 ia in want be ee ee 
6893 j ATE READ HEADER AND DATA 3 
£894 + Cheap CYLINDER FORMAT 1b BITS PER WORD 
6895 t# TRACK 1, SECTOR 1, KEYS 0, 256 WORDS OF O0S2525 
6896 * ANY ERROR TE LOGIC taoteATIONS ARE NOT CONCLUSIVE ON FIRST PASS 
£897 + BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 
6839 "Ogg tae mga mere meta apace tlie tree ott 
6900 025134 o00004 téte1: SCOPE 
p20! 025136 (12706 001000 MOV #STACK, SP ;RESET STACK 
6903 
p24 025142 012737 000061 004172 MOV STTNO,J#TSTNM  ;THIS SAVES TEST NUMBER 
6906 
6907 
6908 : SETUP FOR WHAT IS TO BE READ 
6208 : HEADER CRC IS RESTORED FROM A SUBROUTINE 
6911 025150 01274 OS2525 MOV #052525, -(SP) _;DATA TO BE READ 
6912 025154 012705 O00400 MOV Pick RS ;COUNTER’ 
6913 025160 012700 046330 MOV RO :START OF SIMULATED DISK DATA 
6914 025164 011620 1S: MOV (SP), (RO)+ $MOVE_IN DATA ON TO SIMULATED DISK 
£915 O25 156 005308 DEC ne *C 
6916 1 1375 BNE 1$ “BRANCH IF 256 NOT COMPLETE 
6917 025172 005726 TST (SP)+ UNDO (SP) 
318 025174 912705 000021 MOV #17., RS 2 ECC WORDS 
691 it TA GAP 
£920 714 TOLERANCE GAP 
6921 025200 o0s020 2s: CLR (RO)+ ‘CLEAR ECC, DATA GAP, AND 
6922 OeSe02 005305 DEC RS * TOLERANCE GAP 
b3e3 025204 001375 2$ :BRANCH IF NOT COMPLETE 
6 
b3cb ; THESE ARE TO SETUP FOR DISKLESS USE ONLY h 
6928 O25206 012737 010000 o44412 MOV #O!FMT22, JeCYL 316 BITS PER WORD 
6929 LINDER 0, FORMAT 16 BITS 
6930 025214 112737 000001 o444IS MOVB al, DeSECOTR+! eel H 
6931 Debeee 112737 000001 o44414 MOVE = al, JHSECOTR :SECTOR 1 
6932 025230 012737 00 044416 MOV #0; aekEY1 ;KEY1=0 
6933 025236 012737 O00000 o44420 MOV #0, aHKEY2 ;KEY2=0 
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6934 OeSe44 012737 oCOD4OD oO44472 MOV W2S6., JBDAWORD ;NO. OF DATA WORDS 
6935 O2S252 005037 o44422 CLR aax HIS IS A READ C RAND 
7 537 o4l24e JSR RS, JHCRC G0 TO CALCULATE 

Wile CYL 
6 4 l WCRC 
6940 
Pays 737 040064 ig Pe sBHCLDISK SET qu RAL REGISTERS 
a oe ee ee oe 
Pau Pseage P1554, Banat MOVE ST raTING 8 ee a 
6945 O253le 112766 O60001 000001 MOVB GET TRACK 
6947 25320 12677 15431 MOV Hl, SEDST HTRACK/SECTOR 1N AH 
6948 12777 014 154306 MOV aPMTooECT, JRHOF’:16 BITS PER WORD 
6949 sECC CORRECTION INHIBIT 
6950 “BECAUSE ECC IS NOT GOING 
6951 TO BE CHECKED 
b35¢ 025332 005077 154304 ; CLR ORHCA CYLINDER O 
b354 025336 004737 040120 ISR PC, DCHECKT ;CHECK FOR DVA,RDY,MOL,DPR, DRY 
6956 025342 013711 o02044 MOV J#HREFOR, ORI sREAD HEADER AND DATA=72 
6957 025346 005037 001772 CLR SeEREL CS CLEAR ERROR FLAG 
b358 025352 004737 044302 JSR PC, DSCOMHD ;READ HEADER AND DATA 
6960 









6961 IF THE PROGRAM C RE WIT PRINTOUTS 
6962 ;EROM HE “COMHD™ BT Ene’ THA nEAns SECTOR GAP 

£963 FIRST SYNC, HEADER OHEABER CRC 

6964 SYNC BYTE HAVE GONE BY AND SPneS ERE Roe, 

b365 iDEr cTED phe 

5] IN HE CKING READ PHITAS 1HE CTE om BUFFER 

6968 *WRFROM" IS FI LLED WITH EXPECTED DATA AND 

b g ;COMPARISONS ARE MADE 












6371 025356 005737 001772 TST DHERFLGS ANY ERRORS ALREADY THERE 
6373 025362 001043 BNE TST62  ;BRANCH IF YES 

6975 025364 737 040302 JSR PC, J¥CHECKE ;CHECK DVA, DRY, RDY, DPR 

6 025370 012700 Oo2068 MOV #WRFROM. RO GETTING READY TO FILL EXPECTED DATA 
6 025374 O1¢720 1 MOV aOtFiTee, (RO)+ CYLINDER 

6 De5409 ll 1 MOVE sal, ~(SP) $IN LOWER BYTE GET SECTOR 

6 112766 000001 o00001 MOVB = #1 1(5P)  3GET TRACK IN HIGHER BYTE 

6980 besH1e Olebed MOV (SP)+, (RO)+  3GET TRACK/SECTOR IN BUFFER 

6981 14 O1 oo0000 MOV ; (RO)+  3KEY1 IN BUFFER 

6982 Oes420 012720 o00000 MOV #0 (RO)+  3KEY2 IN BUFFER 

6983 24 Ote70 b90400 MOV #256.. RI ‘DATA WORD COUNTER 

6984 025430 0127 MOV #052525, ke “DATA 

6985 beets 010220 38: MOV Re, (RO)+  ;DATA INTO BUFFER 

6986 025436 005301 DEC Ri : 

6387 025440 001375 BNE 3$ *BRANCH IF 256 NOT DONE 


6989 ;NOW READ DATA BUFFER WILL BE CHECKED 
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RO, J#COMPAR + eOeD 


JSR 
WRF ROM 


REINTO :TES 1 BUFFER 
ie tNORBER OF 1 WORDS CHECKED 
RETURN POINT FOR ERROR HEADER 


sRETURN POINT FOR ERROR DATA 


TSTé2 ;RETURN FOR GOOD COMPARISON 
4$: ERROR 4 ;READ NEXT ERROR 
RTS PC RETURN TO “COMPAR” 
S$: ERROR 5 ;WORD NOS 1 TO 4 ARE 
iHE WORDS 
TO 260 ARE DATA WORDS 
RTS PC TURN TO “COMPAR” 


UH HHHE HEHEHE HEHEHE HEE HEE IHEEEEEE 
62 WRITE DATA 


: ATEST 


3% WRITE CYLINDER 0, FORMAT 16 BITS PER WORD 


i ANY ERROR Loci bohene oh iitad -GoneuisivE°On Fak Fret PASS 
» BECAUSE ERROR LOGIC HAS NOT BEEN 


} nn REE rte en eres 


MOV #STACK, SP ;RESET STACK 


MOV STTNO,d#TSTNM ;THIS SAVES TEST NUMBER 


JSR RO, JSCLAREA sCLEAR SIMULATED DISK 
-WORD DISK :F 
"WORD  TOLGAP+16 ton 


"WORD 0 D TA 
THESE ARE SETUP FOR DISKLESS USE ONL 
MOV #O!FMT22, JNCYL; CYLINDER 0 
316 BITS PER WORD 


MO 4Q, BUSECOTRY1 j TRACK 0 
MOV; #0; J#SECOTR *SECTOR O 
CLR aekEY1 *KEYL O 


aekEY2 *KEY2 O 

MOV #256.,a#NOWORD NO OF DATA WORDS 
#i, ax =H DATA 

RS, a#CRC *GO TO CALCULATE CRC 
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ones 025706 005737 
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7075 

7076 025714 012700 

sere 720 pie? 

7073 025730 pts 

7080 025736 1 

7081 025740 1424 
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040002 


154000 
153774 
000001 


153764 
153760 


037470 
001772 


O44S32 
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; THESE ARE REGULAR SETUPS 


JSR . RO, J#CLAREA 
WRFROM+<256. ¥2> 
377 


JSR PC, JUCLDISK 
MOV #-256. , JRHWC 
nov URFROM, GRHER 
MOVB 1 7 {8b} 

MOV (SP)}+, JRHDST 
MOV #FMT22, JRHOF 
MOV 80, JRHCA 

JSR PC’ J#CHECKT 
MOV DHWRIDAT, IRI 
CLR JHERFLGS 


;FILL WRITE BUFFER WITH 377 
‘Chon 


‘DATA 
: SETUP GENERAL REGISTERS 
2256. DATA WORDS 

i STARTING ADDRESS OF WRITE BUFFER 


: 0 
SECTOR O TRACK 0 
16 BITS PER WORD FORMAT 


sCYLI 
: CHECK FOR OVA, ROY, DPR, DRY 
‘CLEAR ERROR FLAG 


PC, J¥COMHD ‘WRI Q 
IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
*FROM THE “COMHD™ ROUTINE IT MEANS SECTOR GAP, SYNC BYTE 


*HEADER, HEADER CRC, HEADER GAP 
*AND SYNCS WERE CORRECTLY DETECT 
: DATA 1S 10 BE CHECKED 


PC. JHPUTREG 

TST aHERFLGS 
BNE TST63  ;; BRANCH 
MOV #377,RO 
MOV #D01SK,R1 
MOV #256. 

1S: MOV #256. +1, JHERWORD 
CMP RO, (R1)+ 
BEQ 3 
MOV RO, J#SGDDAT 
MOV -(R1), d#SBDDAT 
SUB Re, JHERWORD 
TST JeERFLGS 
BNE 2s 
ERROR 4 
BR 64S 

648: ST (R1)+ 
MOV JSWR, -(SP) 
BIC #177177, (SP) 
CMP #SW07, (SP)+ 
BEQ TST63 

3S: DEC R2 
BNE 1$ 


Bro SYNC BYTE HAVE GONE BY 


;SAVE REGISTERS 
;HAS ANY ERRORS OCCURED? 


IF YES 


;G00D DATA 
;DATA WRITTEN INTO “DISK” 
; COUNTER 


;FOR ERROR WORD 
;COMPARE GOOD DATA WITH DATA ON DISK 
;BRANCH IF GOOD 
;GO0D DATA 
BRO Dare 
;ERROR WORD NO 


“ANY ERRORS ALREADY THERE? 
sBRANCH TF YE 
“ERROR ON WRITE DATA COMMAND 
ANCH TO AVOID PRINTING NEXT ERROR 
RD IN ERROR 


;BRANCH OUT IF YES 


;1F NOT COUNT 256 WORDS 
;BRANCH IF 256. NOT DONE 
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5p IER HERRERA EEE IEEE REE EER RHEL EE EE REE FERRER EER ARR EER 
;ATEST 63 READ DATA 


i YLINDERO, FORMAT 16 BITS R 
BARS RORRR:FRET 4° EE GARE PPro 
# ANY ERROR” LOGIC INDICATION 1S" NOT CONCLUSIVE 
x BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 


© KELEKLREKERERE KERR EL SHES LEAKE BEE LEE ELK KAE KR RHELLKF LEK AE FLERE LEE 
+8163: SCOPE 
#STACK, SP sRESET STACK 


MOV STTNO,O#TSTNM ;THIS SAVES TEST NUMBER 


JSR RO, JSCLAREA sCLEAR SIMULATED DISK 
.WORD DISK FROM 

“WORD OISK+776 ; 

“WORD 177400 : DATA 

JSR RO, J#CLAREA ;CLEAR READ INTO BUFFER 
.WORD REINTO >FROM 


-WORD REINTO+776 ; 
-WORD O ;DATA 


; THESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV #FMT22,a8CYL § ;CYLINDER O 16 BITS PER WORD FORMAT 
CLRB  aaSECOTR+! TRACK O 

MOVB #1, J8SECOTR “SECTOR 1 

CLR aekEY1 sKEVI=O 

CLR Oakey? *KEYe=0 

MOV #10. , d#DAWORD NO. OF DATA WORDS 

CLR aeX *THIS IS A READ COMMAND 

ER RS, aHCRC *GO TO CALCULATE CRC 

WCRC 


; THESE ARE REGULAR SETUPS 


JSR PC, J#CLDISK ;SETUP GENERAL REGISTERS 
MOV SEREADAT a ;READ oly INTO RHCS1=70 


MOV 10 DATA W 
MOV eREINTD SRHBA *STARTING ADDRESS OF READ BUFFER 
MOVB #1, -(SP3 :IN LOWER BYTE GET SECTOR | 

MOVB #0. i(5P) GET TRACKO IN UPPER BYTE 

MOV (SP)+, JRHDST HThackSec oR IN RHDST 

MOV aPNToBTECT: JRHOF’:16 BITS PER W 


sECC CORRECTION INHIBIT BECOUSE 
;ECC IS NOT CHECKED HERE 


HCA L 
JSR ar DUCHECKT CHECK FOR DVA,RDY,MOL, DPR, DRY 
CLR O#ERFL CLEAR ERROR FLAG 

ISR PC, A SEOHD READ DATA 
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READ DATA 
:iF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUT 
:FROM “COMHD™ ROUTINE IN MEANS DATA IS TO BE CHECKED 
;NOW THE DATA READ INTO “REINTO” BUFFER WILL 
"BE CHECKED, ONLY 10 WORDS SHOULD BE CHANGED 
!ALL OTHER WORDS SHOULD ENAIN UNCHANGED 
‘THE “WRFEROM” BUFFER IS FILLED WITH EXPECTED DATA AND CHECKED 
001772 Ts? DsERFLCS sHAS ANY ERRORS OCCURED? 
BNE TST6Y ;;BRANCH IF YES 
o4coce ISR RO, J#CLAREA ;CLEAR BUFFER 
WREROM FROM 
WRFROM+776 :70 
0 DATA 
o#o0d2 JSR RO, J8CLAREA sFILL EXPECTED DATA 
WRFROM FROM 
WRFROM+22 : TO 
177400 DATA 
;NOW READ DATA BUFFER IS CHECKED 
SWRFROM, RO :G00D DOR 
003126 MOV SREINTO.RI DATA READ 
000400 MOV #256. ,Re *C 
000401 o44532 1S: MOV #257. .JSERWORD ;FOR ERROR WORD 
CMP (RO)4; (RI)+ >COMPARE GOOD WITH READ BUFFER 
BEQ 2s > BRANCH IF G00D 
001124 MOV =(RO),a8SGDDAT GOOD DATA 
001126 MOV -(R1)*a38$BD0AT BAD DATA 
O44522 SUB R2, JSERWORD “ERROR WORD NO 
001772 TST DeERFLGS “ANY ERRORS ALREADY THERE 
BNE 3$ sIF YES BRANCH DO NOT TYPE HEADER 
ERROR 4 ERROR ON READ DATA 
5R 4g *BRANCH TO AVOID PRINTING NEXT ERROR 
3$ ERROR 5 “WORD NO 1-10 ARE DATA 
$ORD NOS 11-256 HAVE NOT BEEN 
*READ AND BUFFER SHOULD BE 
*2ERO IF OTHER THAN ZERO 
:WRONG NUMBER OF WORDS HAVE 
*BEEN READ IN THE DISK NOW 
SCONTAINS 177400 ALL 256 
“WORDS BUT ONLY 10 WORDS 
‘SHOULD BE READ IN 
4S; CMP (RO)+, (R1)+ ;UNDO -(RO) AND -(R1) FOR ERROR 
001140 MOV aeSWR’ -(SP) GET SWITCH SETTI 
177177 BIC a1774 (SP) 3KEEP ONLY SWITCH 7 AND 9 
000200 CMP #SWO7, (SP)+ 71S 7 SET AND 8 RESET 


BEG TST64  ;BRANCH OUT IF YES 
es: DEC Re ; COUNT 











026352 001345 = SNE 1$ ;BRANCH IF NOT COMPLETE 


sory 
wt wy: 
WO INTrUN+s 


; 
iteel GH WRITE CHECK HERDER WO DATA ee 
kT TEST 64 WRITE CHECK HEADER AND DATA 
& 
& 
°% 


yu 


hy 
jWiur 





WRITE CHECK CYLINDER 0, FORMAT 16 BITS PER WORD 
KEYS 0, 36 WORDS AS SHOWN 


Pensrurenururenens 


TRACK 1, SECTOR | 
ANY 
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763 READ DATA 
7226 DEVICE LOGIC ERROR INDICATION IS NOT CONCLUSIVE ON FIRST PASS 
Vee? AUSE ERROR LOGIC HAS NOT BEEN CHECK ED YET (ON FIRST PASS) 
- ONL WRITE CHECK ERROR (RHCS2 BIT 14) IS TESTED HERE 
7223 SEPEYLEFEEESREBRREL SERS FEE RFHSESGEELRELEELLEERLRPEED aD CESSES ETE 
30 026354 900004 +é764; SCOPE 
7221 ; DATA TABLE 
: €0 WORDS OF 070707 
7233 : HEN 16 WORDS WITH ZERO FLOATING FROM RIGHT 
sex : TO LEFT (EG. 177776, 177775, 177773 ETC) 
7226 
7237 O26356 012706 001000 MOV sSTACK, SP RESET STACK 
is 
| 7e40 026362 012737 OCOO0EY 904172 MOV STTNO,S8TSTNM  ;THIS SAVES TEST NUMBER 
7242 
| 7545 -SET UP “REINTO™ FOR WHAT IS TO BE READ 
7244 026370 012701 002126 hOV #REINTO, RI sSTARTING ADDRESS 
7245 beb7 012721 010090 MOV eFMTe2,(R1)+ CYLINDER O FORMAT 16 BIT WORDS 
7246 012721 OO0401 MOV 8401, (R1)+ :TRACK=1, SECTOR=1 
7247 O26404 O0S021 CLR (R1)4+ sKEY1=0 
7248 026406 CLR (R1)+ *KEY2=0 
7249 Oe6410 040002 ISR RO, J8CLARE “FILL “REINTO" BUFFER 
7250 GebH 003136 -WORD REINTO+<4e2> FROM 
| 7251 16 903204 “WORD REINTO+<23.%2> :T0 
| 7252 Oeb4e0 070707 “WORD 070707 *DATA 
| see 026422 012700 177776 MOV $177776,RO GETTING READY TO FLOAT 0 
| 7255 Geb4e6 012701 003206 MOV sREINTOS 24. #2), AT-STARTING ADDRESS WHERE 177776 GOES 
7256 Oeb43e 010021 1S MOV RO, (R1)+ sMOVE IN FLOATING O 
| 7257 Debus 000261 SEC :SET CARRY 
| 7258 006100 ROL RO >GET O ONE BIT LEFT 
| 7259 Oc6440 103774 BCS 1$ *BRANCH IF 16 NOT DONE 
} 
2 oo4037 o40002 JSR RO, J#CLAREA sFILL THE REST OF BUFFER WITH O 
aad 003246 .WORD RETNTO+<40. #2> + FAOH 
124 -WORD REINTO+776 : 
C264S2 00000 .WORD 0 DATA 


;SET UP SIMULATED DISK WITH WHAT IS TO BE READ 


0264S4 037 c#o002 JSR RO, S8CLAREA sFILL “DISK” BUFFER 
7269 O26460 046330 -WORD DISK >FROM 


a 
8 


8 


SY ELISE - 
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~WORD DISK+<19. #2) ;T0 


.WORD 970707 :DATA 
MOV #177776,RO ;GETTING READY 10 F ROS 

MOV abiSe°20. #2) ‘AL Bere Ty @ ADRES WHERE 177776 GOES 
MOV OVE IN’ FLORTING 

SEC ice 

ROL * GET O ONE BIT LEFT 

BCS 2g ‘BRANCH IF 16 NOT DONE 


JSR RO, J#CLAREA sFILL THE REST OF BUFFER WITH 177777 
WORD Disks. .#2> = FROM 


:T0 
DATA 


JSR PC, @eWRCHHD sMRITE CHECK HEADER AND DATA 
- $QYLINOER 0, TRACK 1, SECTOR 1 


; IF THE PROGRAM COMES pack HERE THEN WRITE CHECK 
ines BEEN ant hen i TE GECK E BIT iS TO BE TESTED 


BIS 
ier RC PRs) CAVE REGISTERS 
CMP SP)+, a8CSe : COMPARE 
BEQ 4 *BRANCH IF GOOD 
BIT SHICE, IR2 WRITE CHECK ERROR HIGH? 
BEQ 3 "BRANCH IF ERROR NOT DUE TO “WCE” 
ERROR 17 *RHDB CONTAINS FAILING WORD 
ag *RHBA CONTAINS ROORESS+ SOON 
OF THE WORD IN MEMORY 
THE DISK THAT Dip. NOT ConpaRE 
iTR : AND SC WILL T DUE TO 
ERROR 17 WCE CORRECTLY WAS NOT SET BUT SOME 
sBITS OTHER 
:AND UNIT ENO. WAS Rr 
’ sNOW CHECK MEMORY TO SEE F NOTHING GOT DESTROYED 
“FILL “WREROM” WITH WHA BE IN “REINTO™ THEN CHECK 
hov SlRFROM sSTARTING ADDRESS 
MOV eMT22.180)+ :CYLINDER 
#401, (RO)+ *TRACKs1, SECTOR=1 
CLR (RO)$ *KEY1=0 
CLR (RO)+ sKEYe=0 


_ ISR RO, I8CLAREA FILL “WRFROM” BUFFER 
" WREROM+<4%2> FROM 

: WRFROM+<23.#2> :TO 
“WORD 070707 :DATA 


MOV #177776,R0 ;GETTING READY TO FLOAT 0 
MOV BRE RORY 24, #2), Ri ; STARTING noone WHERE 177776 GOES 


MOV RO, (R1)+ MOVE IN N FLOATING 

SEC ioe 

ROL RO *GET ONE BIT LEFT 
cs “BRANCH IF 16 NOT DONE 











z 
e 


C 


026704 
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3 
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it 049002 
oo00d0 


005037 001772 
004037 040736 
002062 


012706 001000 


012737 000065 004172 


012700 000001 
012701 003126 
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AND DATA 


JSR, RO, 98CLAREA sFILL THE REST OF BUFFER WITH O 
WO WREROM+<40.#2> 3FROM 
WREROM+776 


- WOR : 

“WORD, 0 ‘DATA 

- NOW THe READ BUFFER WILL BE CHECKED 

CLR \ aeERFLGS CLEAR ERROR FLAG 

Isk_ RO, J#COMPAR s CHECK 

war Ron :G000 BUFFER 

Bee \ : pUEE WORDS CHECKED 

65 \ “RETURN POINT FOR ERROR HEADER 

7§ \ ‘RETURN POINT FOR ERROR DATA 

TsTeS | ;RETURN FOR GOOD COMPARISON 
6S: ERROR 4 * READ NEXT ERROR 3 

RTS PC \ : TO COMPARISON SUBROUTINE 
7$: ERROR 5 \ :DATA_IN RE NTO BUFFER GOT 

3C a Wate 
‘CHECK HEADER AND DATA COMMAND 
“WORD NO CONTAINS THE WORD 
\ : THAT GOT CHANGED 

RTS = PC RETURN TO COMPARISON SUBROUTINE 
10S: NOP ONLY A BRANCH POINT 
5; EEAAHAELEEALELELLS LAL LELALELELLARLESLELELELELALLALLELE RAL LL LALE 
tETEST 65 WRITE CHECK DATA 


:% WRITE CHECK DATA CYLINDER 0 FORMAT 1b BITS PER WORD 
: TRACK 1 SEC OR 1, KEYS O DATA 
i ANY DEVICE LOGIC ERROR INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS 
3% 


ee ERROR LOete HA NOT Fst FIRST PASS) BEEN CHECKED 


ss EEHEELELELELLELLL LLL LEE LE LE REAREARELALA LALA LA SAEAARRRALAAAALLES 


+ST6s 


saga TABLE 
;TOTAL OF 32 WORDS CONSISTING 
316 WORDS OF FLOATING ONE F 


OF 
NG ONES (EG. 1 Brot 10) 
716 WORDS OF FLOATING ZEROS (EG. 177776, 177775) 


MOV #STACK, SP ;RESET STACK 


MOV STTNO,d8TSTNM ;THIS SAVES TEST NUMBER 
;SET UP “REINTO” FOR WHAT IS TO BE READ 
MOV ;GETTING READY TO FLOAT 1 


#1, RO 
MOV #REINTO,R1 “STARTING ADDRESS WHERE 1 GOES 
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PPPPPPPPPPPFF 
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RES 





a 


1 
012700 


Oidae! 


ee es 


ES 


a4 ees 


us 


040002 


000001 
046330 


177776 
046370 


040002 


041100 


es: 


3$: 


4§: 


MMmMmmMmoOckw wees 
ee hutetud tatod 


2 
3 


;1F THE PROGRAM COMES BACK 
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Bp, (Abe move FLOATING 1 
RO $GET 1 ONE og 
gran IF _ 16 NOT DONE 
READY TO 


i$, 
TTING FLOAT 0 
BRENTON IE. #2), Ar; STARTING RODRESS WHERE 177776 GOES 
RO, (R1)+ sMOve IN FLOATING 0 


ARRY 
CET O ONE BIT LEFT 
55 ;BRANCH IF 16 NOT DONE 


RO, JSCLAREA FILL REST OF BUFFER WITH 1 
RE{NTO+<32.#2> ;FROM 
REINTO+776 370 

sWITH DATA 
SIMULATED DISK WITH WHAT IS TO BE READ 
GETTING READY TO FLOAT 1 


totsk Ri : STARTING RODRESS WHERE 1 GOES 
RO, (RL)+ *MOVE FLOATI ane = 
3$ ioe dy I fe No 


#177776,R0 sCETTING READY TO FLOAT 0 


#D1SK+<16.#2>,R1°;STARTING ADORESS WHERE 177776 GOES 
RO, (R1)+ sMOVE FLOATING O 
sSET CARRY 
RO >GET O ONE BIT LEFT 
4§ ;BRANCH IF 16 NOT DONE 
RO, 8CLAREA sFILL REST OF BUFFER WITH O 
DISK+<32.%2> § ;FROM 
DISK+ ; 
0 ;WITH DATA 


“a 
m8 
5 


ITE Ge 


*HAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT IS TESTED 
DRUNIT,-(SP) GET UNIT NUMBER 
SIR, (SP) *ONLY BIT & SHOULD BE SET 
PC, SHPUTREG ;SAVE REGISTERS 
(SP)+, daCSe COMPARE RHCS2 
6$ “BRANCH IF GOOD 
#WCE, aecSe2 WRITE CHECK ERROR HIGH? 
5$ + BRANCH IF NOT DUE TO “WCE™ 
1 : CONTAINS FAILING WORD 
6$ : CONTAINS ADDRESS+2 
OF THE WORD IN MEMORY FROM 
: THE DISK THAT DID NOT COMPARE 
: TRE sc WILL BE SET DUE TO WCE 
17 *WCE WAS CORRECTLY NOT SET 
*BUT SOME BITS OTHER THAN 
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ATA 


;IR AND UNIT NO. WERE SET 
sNOW CHECK T F ANYT ¢ TROYED 
et ORE ROMA RI TH WAAT SHOUD Be IN REINGS TREN. CHECK 
6S: CLR JSERFLGS sCLEAR ERROR FLAG 

MOV #1, R0 GETTING RCRD TO FLOAT 1 

MOV #WRFROM, Ri ;START ROORESS WHERE 1 GOES 
73: HOV RO, (R1)+ MOVE FLOA " hw 

Bee tC GET ONE ait oF hone 

MOV GETTING READY TO FLOAT 0 

MOV BUR ROMY CIE, #2), AT -STARTI ING ADDRESS WHERE 177776 GOES 
10$: MOV RO, (R1)+ Move IN TING O 

SEC :SET CARRY 

ROL RO :GET 0 GET O ONE BIT BIT LEFT 

BCS 10$ ; BRANC: ARRY SET 

ISR sFILL REST OF BUFFER WITH 1 

- WORD rig #2) sFRON 

“WORD AIT DATA 

sNOW THE READ BUFFER WILL BE CHECKED 

JSR on RO, J#COMPAR ; CHECK 

INTO ;TES 
‘ OF WORDS CHECKED 

11$ *RETURN POINT FOR ERROR HEADER 

125 *RETURN POINT FOR ERROR DATA 

TST&6 ;RETURN FOR GOOD COMPARISON 
11S: ERROR 4 ;READ_NEXT ERROR RROR 

RTS PC *RETURN TO COMPARISON SUBROUTINE 
123: ERROR S DATA IN Ret NTO BUEFER GOT 

2C AF WRI 

;CHECK DATA 

WORD NO TOONTRINS THE WORD 

TORN 10 coMPanfSON sb 
RTS PC * RETURN er COMPARISON SUBROUTINE 

13$: NOP sONLY A BRANCH POINT 


© LEAKKAARAKRELELASERERRAAAAALER SRK KARAARAKRAERSSSASRAAA RRA RRA ARLE ALES 
TEST be ATTENTION WITH ERROR TEST 


;% THIS TESTS THE SETTING OF ATA BIT BOTH IN THE RHAS 
3% AND THE RHDS1 REGISTERS WITH THE SETTING OF EACH 
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m3 3% RROR BIT ON THE THREE RROR REGISTERS. 
i IN EACH OF THE ABOVE CASES ERR IN RHDSI SHOULD 
e + oh30 SEOULD CLEAR ERR, ATA IN RHDS1 AND RHAS BUT NOT ERROR REG. 
1 PUTTING "1" IN RHAS DRIVE POSITION CLEARS DRIVE BIT IN ATA IN RHDS1 
Le UPPER BYTE OF RHAS IS INVALIBD 
a SHEERS HEA REESE RARER ERAS RRAASRAERRRA RA REAALS AALS RE ARALARALAFAERE 
027212 o00004 tSTe6: SCOPE 
7303 3 027214 012708 001000 MOV STACK, SP RESET STACK 
Fe08 027220 012737 000066 004172 MOV STTNO,d@TSTNM ;THIS SAVES TEST NUMBER 
a 4 J PC, ae D 
710 $5755 Bi2r80 Gost wee ORREENTOCROS iBorren of LRKRTING FOR’3 ERROR 
1 1 MOV a 1, (RO)+ N 
rete pores 1 MOV osRHer ne eal ap. CHECKED IN RHERL 
7514 O272% 013720 001636 MOV DBRHERE, (RO)+ 
ais 027252 Oie7ed o40000 HOV ath tRO)+ Ti Ror ao TO ae BRECKED IN RHER2 
rai? 57528 Bt MOV oat ne sveirodl over art {RO} pap 
oie *IN N TESTING. era 
Tl viene Nov SunrTEA RS Hee Ate ee T IN RHAS 
rss Were He BES coo =| YET rR eo 
: aaa sti va RT RN POINT TO ERROR 
me ee Gee Be wy ter we 
16 Ol 1S: MOV HAS ADDRESS OF ERROR REG 
767 999001 MOV #8170, RI RI es ia WILL HAVE BIT UNDER TEST 
152274 2S: BIS 
7529 e735 013772 001760 152266 NOV saint oehes2 Sa T NO. 
reat nahead 037470 JSR Bl SS ores : VE meet 
ee 02734% 120537 001716 CMPB =saRS, a#AS SONY THE 81 T IN RS SHOULD BE 
027352 001401 BEQ t BRANCH IF 
7535 027354 104020 ERROR 20 *WITH THE SETTING OF ONE 
re ae PA THE CORRESEONDING 
rE3g | 013746 001 3$ MOV (SP) fe “Bit DID wales 
7540 Wea] 042716 0011 BIC aW'PROG. (SP) *REMOVE VV AND PROG 
7541 027366 022726 140600 CMP #ATA!'ERR! DPR! DRY, (SP)+;THISE BITS PLUS VV SHOULD BE IN RHDS1 
res HSIN Teich Eilon 3 carne 
1 ERROR *WITH NG OF ONE 
7544 “ERROR BIT COMPOSIT ERROR 
7545 : AND ATTENTION ACTIVE 
% t PERRANENT AT ts DID NOT SET 
| 7549 027376 012777 000001 152224 4S: MOV #G0, JRHCS! GIVE NO-OP 
| 
L 








037470 JSR PC, J#PUTREG ; SAVE REGISTERS 


i 
fe 
z 
4 
g 


7551 a G20} 12 CHP Rl,dR2 ;GO SHOULD NOT CLEAR ERROR 
ea 4 bibey? 75 MOV Re, a wREGADR sFAILING REGISTER 
int. 101 ll MOV RI: a#SGDDAT $6000 D DATA 
027424 013737 001676 001126 MOV aatse, a¥SBDDAT BAD DA 
027432 104001 ERROR W ued CHANGED 
027434 01374 001722 S$: Moy sos, -(SP) 
haa ie gheBD ate tut enal OR ORY cieat WY G0 PR for CLEAR ANY BITS 
Se aues Fae ERROR 38 WITH SHOULD NOT CLEAR 
inte ai, ORYeRR 
027454 006301 7$: ASL Rl T BIT 1oNe LEFT 
BSoue Asiool Bre HRB) Peis BIT 16-Be TECTED 
001 BNE 7§ HE NOT TO BE TESTED BR BRANCH 
027464 17 BR 2s F TO BE TEST 
008720 108: ST (RO)+ *ADVANCE RO TO NEXT ERROR REG. 
nS 001200 DEC aeSTMP) : COUNT 


GIS 
BRANCH IF 3 NOT COMPLETE 


;NOW AFTER SETTING ATA IN pe ee N ioe one AT THE 
DRIVE POSITION SHOULD CLEAR ATA 


027476 004737 O40064 118: JSR AT te ; CLEAR 


7 151400 MOV ells “ERROR RETURN 
Gersio lenis Jerre) YELeBeN FEET EDT FORE OW GTA IN DSL 
peree3 oi Neate oe erie : SAVE REGISTERS 


aa REPRESS as cS a 
5 
Se 


737 JSR 3 SI 
teres 105737 001716 STB asks :THIS SHOULD BE ZERO 
14 Q les 
1 ERROR 20 ' MOVING ae “4° INTO RHAS 
ino ar CLEAR IT 
res Bare Bie Rea 
726 040700 MP #ERR! VV! DPR! DRY, i 
- = rhea HAVE THESE B BITS 
027552 001401 BEQ 13S te RODD 
7593 027554 104020 ERROR 20 cores INTO AT THE 
734 sDRIVE ve ett PO POSIT Toy OID NOT 
759% 027556 022737 177777 001702 13%: CMP #-1, 28ER1 TRHERL CHOULD NOT CHANGE 
z o » cust RHAS 
7509 027564 001401 BEQ TST67 BRANCH IF GOOD 
7601 027566 104020 ERROR 20 ;RHERI CHANGED BU CLEARING 
7608 MOVING nde INTO 
ite 5 IVE BIT POSITION 
7604 
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eee 
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sate 





dtatorc' crotatatats® 


bo 
WONM UIE WHO 





Peel Bren 12708 001000 
7623 

opel 027576 012737 900067 
7626 pees pase 040002 
7628 Oe7ble 047326 

76e3 027614 177400 

7631 027616 are 040002 
Be Bee Bie 

7634 Oe76e6 000000 

7635 

ap Saki 
Fe ee ee pa 
ay Oe7642 112737 at 
a Be tee as 
7643 027660 O1 000012 
7644 42e 
7645 0276 naga le4e 
i 

7648 

7649 

7650 

7651 027702 004737 O40064 
He 027706 eee pei 
ra rs tle kre 
7655 027726 112746 1 
fe teres le 
7660 

7661 027752 005077 151664 
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004172 


O44412 
044414 


044472 


isiere 
000001 
151666 
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5p RRR RRR ERIE ERE ERIE EEE EERE ER EEE EERE EERE EERE EERE LEER EEE 
#TEST 67 BUS ADDRESS INHIBIT 


;# READ CYLINDERO, FORMAT 16 BITS PER WORD 
i Ths Ys Bie tirty Sie cabondge thes Tr 477400 

ty —sBRCAUCE ERROR Lote MAS NOT BEEN CHECKED YET CON FIRST PRES) 
ee ee Re eee ee ae 


t$167 


~ STACK, SP sRESET STACK 
MOV #TTNO,Q8TSTNM ;THIS SAVES TEST NUMBER 
JSR RO, J¥CLAREA ;CLEAR SIMULATED DISK 
-WORD DISK >FROM 
“WORD DISK+776 :TO 
“WORD 177400 :DATA 
JSR RO, J#CLAREA sCLEAR READ INTO BUFFER 
.WORD REINTO FROM 
“WORD REINTO+776 10 
“WORD O ‘DATA 


; THESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV eFMT22 QacyL sCYLINDER O 16 BITS PER WORD FORMAT 
CLRB © BSECOTR+1 > TRACK O 

MOVB #1, a8SECOTR ;SECTOR 1 

CLR aucey : Vie 

CLR : 

MOV #10. , J8DAWORD A WORDS 

CLR aux OF PR A "Reap COMMAND 

ISR RS, a#CRC 13 CALCULATE CRC 

WCRC 


; THESE ARE REGULAR SETUPS 


JSR PC, J#CLDISK ;SETUP GENERAL REGISTERS 

HOV ae T, aR * READ DATA INTO RHCS1=70 

ly fling en TAD Be tg pre 

me Ei, een reat 

MOV SPNTSE ECT SRHoF’ | “16 Ai PER WORD -.¥ 
sECC CORRECTION INHIBIT BECAUSE 4 
“ECC IS NOT CHECKED HERE ri 

CLR SRHCA CYLINDER 0 











al al 
Sea ae T6?7 





peas 


012737 


ae 


=e 
~ 
Bs 


=) 
"3 
8 


ae 


ae 
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040120 


010 


000 
; Rs 


151636 


002062 


O44S32 15: 


4S: 


23: 
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JSR —- PC, UCHECKT ; CHECK FOR DVA,RDY, MOL, DPR, DRY 
#BAI. JRH on RES INHIBIT 


ere aor ae Cw SET UBER 

i fone hos iCLEGR, ER 
;IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUT 
“FROM "COMHD” ROUTINE IN MEANS DATA IS TO BE CHECKED 


3 NOW THE DATA READ INTO “REINTO” BUFFER WILL 
BE CHANGED 


pereiN UNCHANGED 
“WRFROM” BUFFER IS FILLED WITH EXPECTED DATA AND CHECKED 


ni DHERFLGS foe FLAG 
TR on RO, J#CLAREA BUFFER 
WRFROM+776 so 

0 :DATA 

jEXPECTED DATA IS 177400 IN FIRST LOCATION ONLY 
MOV 77400, J8WRFROM sEXPECTED DATA 
;NOW READ DATA BUFFER IS CHECKED 


MOV #WRFROM, RO gon pally 
MOV #REINTO,R1 


HOY 1587. : COUNTER on 


(RO)+, (R1)+ * COMPARE R000 H Bria READ BUFFER 
-  $BRANCH IF GOOD 


Sr 
MOV =(RO),a8SGDDAT GOOD DATA 
MOV -(R1):a8SBDDAT BAD DATA 
sue Re, J#ERWORD * ERROR WORD 
TS JeERFLGS RRORS ALREADY THERE 
BNE 3$ IF YES BRANCH WHOT TYPE HEADER 
ERROR 4 ERROR 
BR 4g BRANCH TO AVOID PRINTING NEXT ERROR 
ERROR 5 sHORD NO 1-10 ARE DATA 

"WORD NOS 11-256 HAVE NOT BEEN 

READ AND ER SHOULD BE 

*ZERO_IF OTHER THAN ZERO 

“WRONG NUMBER OF WORDS HAVE 

*BEEN READ IN THE DISK NOW 

‘CONTAINS 177400 ALL 256 

;WORDS BUT ONLY 10 WORDS 


CMP (RO)+, (R1)+ -(RO) -(R1) FOR ERROR 
MOV JeSWR, -(SP) tes emit eNO TING ING 


1?7,(SP)  3KEEP ONLY SWITCH 7 AND 8 
CMP #SW07, (SP)+ 1S 7 SET AND 8 RESET 


BEG TST70 =©;BRANCH OUT IF YES 
DEC Re ; COUNT 
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e718 030124 001345 
77 


7721 
77 
7723 
7724 
7725 
7726 
res 
77 
ee 
77 
53s 
7733 
Fe 30126 
7736 030130 012706 
7737 
Fr34 030134 012737 
Frat g3014e 90017 
7742 030146 004037 
773 Oa01se e330 
Soue Daoiee {77408 
7746 
7747 
7748 
7750 030160 0 

cit 
prey babies so6037 
77ee 30172 112737 
noe 4 12 
Free Gapele soa? 
7757 O30222 004537 
7758 030226 O44412 
7759 030230 O463le 
7760 
7761 
7762 
7763 030232 004737 
7764 03023 013711 
orep o3nee0 13777 
ore b5714 
7768 030262 112746 
7769 Os0ebb 112766 
7770 030274 012677 
7771 030300 012777 
7772 
7773 
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004172 


o4441e 
044414 


044472 
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BNE 1$ ;BRANCH IF NOT COMPLETE 


5 REAEHRALALAELEL EAA L AREAL AE AERA AE AAA ALE RERLL ERE RRE LE LLL AER ERELE 


:&TEST 70 RHCS2 - BIT # 11 - NEM 

s* READ CYLINDERO, FORMAT 16 BITS PER WORD 

ti TRACKO, SECTOR 1, KEYS 0, 1 WORD OF 177400 

1% THIS 1$ DONE WITH Bus ROBRESS INIBIT SET 

1 BUS ADDRESS USED 1S 760000 THIS IS ALWAYS NON EXISTANT 
ie THIS SHOULD SET NEM 


© RELKLLALKARARELELA LEEKS KA RARE RAKE LA AKER ARA ERE L AAA RARE REE AAEEE 
+5170: SCOPE 
MOV aSTACK, SP ;RESET STACK 


MOV #TTNO,d8TSTNM ;THIS SAVES TEST NUMBER 


IMP TST71__; JUMP TO NEXT TEST FOR RH70 
GCLARER s CLEAR SIMULATED DISK 


JSR RO 
WORD ok ane 
“HORD 177400 DATA 


; THESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV #FMT22,98CYL § ;CYLINDER O 16 BITS PER WORD FORMAT 
CLR aaSECOTR+ * TRACK O 


1, J8SECOTR *SECTOR 1 
CLR aekEY1 *KEY1= 


CYL 
WCRC 
THESE ARE REGULAR SETUPS 

JSR PC, IUCLDISK SETUP GENERAL REGISTERS 
MOV DHREADAT, RL READ DATA INTO RHCS1=70 


HOV #1... ARHUIC 10 DATA WORDS 
MOV #160000, 9RHBA ; TARTING ADDRESS OF READ BUFFER 


HOVE «#1, ~( SP) STN LOWER BYTE GET SECTOR 1 
MOVE «#0 1(SP) 'GET TRACKO IN UPPER BYTE 
STRACK/SECTOR IN RHDST 


MOV (SP)+,QRHDST —_;TRACK/ 
MOV #FMT22!ECI, JRHOF : 16 BITS PER WORD 

sECC CORRECTION INHIBIT BECAUSE 
“ECC IS NOT CHECKED HERE 
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030456 000004 


151302 


001126 
001124 


001126 


001126 
001126 


001124 
037534 
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1 - NEM 


5 REM RREE K EES HE REEEHEEE EHEE EE REHEE RRHEEEEREEEERRER EEE RE EE 
EST 71 WRITE CHECK ERROR 


a 3K MK Bic oie 2K nc “wee 
+ 


OO rye °° apa name se cele amaN ye: maDR ety A aS Amat 












CLR JRHCA CYLINDER 0 
JSR PC, JHCHECKT CHECK FOR DVA,RDY, MOL, DPR, DRY 
BIS #BAI, JRHCS2 "SET BUS ADDRESS IAHIBIT 





CLR IHERFLGS ‘CLEAR ERROR FLAG 
ISR PC, a#COMHD "READ DAT 












MOV JR1,9#SB0DAT  §; TEST DATA 
CHP SSC! TRE!DVALALG!AL7 £RDY!70, ,I8SBDDAT ;COMPARE RHCS1 
MOV oe 0+ TREDVAIRDY! 3B JeSGDDAT :GOOD DATA 









MOV R1, J#REGADR REGIST TER RHCS1 

ERROR 1 EFERENCE NON EXISTANT 
IREMORY DID. NOT SET 
; REQUIRED 






MOV Q#UNIT, -(SP) I RUNBER 
BIS aNEM? TR BAL csp)’ ; INCLUDE NEM BAI AND IR 


MOV (SP) deSGODA 
, SSEDDAT STEST DATA 
CMP aRStODAT. JSSBDDAT; COMPARE RHCS2 









BEQ 3$ 
MOV Re, J#REGADR ;REGISTER ADDRESS 
ERROR 1 j REF RENCING NONEXISTANT MEMORY 





CAUSED AN ERROR SHOULD SET NEM 
MOV QRHBA,ONSBDDAT ;TEST DATA 


CMP #160000, J4SBODAT COMPARE 

BEQ 4§ ancy tF coop 

MOV #160000 axscopaT: BoD DATA 

MOV SaRHBA, SHREGADR : REGISTER ADDRESS RHBA 

ERROR 1 “AFTER A NON EXISTANT MEMORY ERROR 
*RHBA DOES NOT HAVE 160002 












RHBA 











WRITE CHECK DATA CYLINDER 0 FORMAT 16 BITS PER WORD 
TRACK 1 SECTOR 1, KEYS 0, 32 WORDS OF DATA 

FIFTH idee Isc CHANGED D ON OISK TO GIVE WRITE CHECK ERROR 
ANY DEVICE LOGIC ERROR INDICATIONS ARE NOT CONCLUSIVE 


ON FIRST P 
BECAUSE ERROR LOGIC HAS NOT YET BEEN CHECKED 
ONLY RH WRITE CHECK ERROR IS TESTED 















la a 
DERP 


171 


8 


ooo~ 
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001000 


000071 
040064 


000001 
003126 


177776 
003166 


040002 


000001 
046330 


177776 
046370 


040002 


046340 
001772 
041100 


004172 
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1$: 


es: 


33: 


4§: 


BTiS RRS RENGTING 10) 


tie WORDS OF FLOATING ZEROS (EG. 179476! 
MOV STACK, SP RESET STACK 
MOV 8TTNO,8TSTNM ;THIS SAVES TEST NUMBER 


ISR PC, J¥CLDISK - INIT AND SET GENERAL REGISTERS 
;SET UP "REINTO™ FOR WHAT IS TO BE READ 


MOV ;GETTING READY TO FLOAT 1 
MOV ite tnTO R1 ; STARTING ADDRESS WHERE 1 GOES 
MOV RO, (R1)+ MOVE FLOATING 1 

ROL RO GET 1 ONE BIT tert 

BCC = i BRANCH IF 16 NOT DONE 


MOV TTING READY TO FLOAT O 
MOV aReTATONCIS. #2), i; ; STARTING ADDRESS WHERE 177776 GOES 
MOV , (RL)+ sMOVE IN FLOATING O 


SEC c Rye 

ROL RO GET O ONE BIT LEFT 

BCS 2$ *BRANCH IF 16 NOT DONE 

JSR RO, JHCLAREA sFILL REST OF BUFFER WITH 1 
.WORD REINTO+ <3e. *2> :FROM 

WORD REINTO+776 TO 


"WORD I IWITH DATA 
;SET UP SIMULATED DISK WITH WHAT IS TO BE READ 


Yi my RETTIG FED TS GARE foes 
MOV aD RL Se ne. ANGaT ING | 

ROL RO *GET 1 ONE BIT LEFT 

BCC S BRANCH IF 16 NOT DONE 

MOV #177 ;GETTING READY TO FLOAT O 

MOV notkec 6. ¥2>,R1’;STARTING ADDRESS WHERE 177776 GOES 
MOV RO, (R1)+ sMOVE FLOATING O 

SEC :S 

ROL RO GET O ONE BIT 

BCS 45 BRANCH IF 16 NOT DONE 


JSR RO, AHCLAREA =—Ss- ; FILL_ REST OF BUFFER WITH O 
~ WORD DIoK+<32. .¥2) FROM 


"WORD 0 tWITH DATA 


sCHANGE FIFTH WORD TO 0 ON DISK 
LR DeDISK+10 sCLEBR BR FIFTH WOR WORD ON DISK 
CLR JHERFLGS AG 
JSR PC, J#WRCHDA tORITE CHECK BATA 





r 


set 2 


MAINDEC11-DERPS-8 
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r 


CERT hy 


Ein 


stash 
WONMUIS WHO 


ae 


E 


a 
es 


: 


saa 
Ee 


: 


003146 


040002 
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ROR 


s CYLINDER 0, preg 1, SECTOR } 


sKEYS 0, 22’ WORD 


; IF THE PROGRAM COMES nec HERE THEN WRITE CHECK 
SHAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT IS TESTED 


8 
¢ 
3 
001676 8 
8 
E 


S$: ERROR 
001672 6S: 


BR 
CNP 


BEG 
ERROR 


001674 14S: 


;NOW CHECK MEMORY TO SEE’ IF ANYTHI 
FILL “WRFRON” WITH WHAT SHOULD BE 


15S: CLR 


MOV 
7$: MOV 


3 
< 


10$: 


g BPe83s fF 


- WORD 
- WORD 
WORD 


;NOW THE READ BUFFER WILL BE CHECKED 


re ne Oe SE 





QaUNIT, 7A5P) sGET_UNIT NUMBE 
#4030 (SF : BIT 647 SHOULD BE SET 
SAPUTRE : SAVE TERS 
repos, Seces :C RHCS2 
;BRANCH IF 
sWCE, aecse ‘WRITE CHECK ERROR HIGH? 
S$ *BRANCH IF ERROR NOT DUE TO “WCE” 
17 *RHDB CONTAINS FAILING 
&$ *RHBA CONTAINS ADDRESS+2 
:0F THE WORD IN MEMORY F 
“THE DISK THAT DID NOT C 
*TRE AND SC WILL BE QUE TO WCE 
17 “WCE WAS CORRECTLY NOT SET 
:BUT SOME BITS OTHER THAN 
*IR AND UNIT NO. WERE SET 
8-24. , auc ;COMPARE RHWC AFTER A FORCED 
‘WRITE CHEECK ERROR 
14 :SRANCH IF GOOD 
17 “WORD COUNT REGISTER IN ERROR AFTER A 
;FORCED WRITECHECK ERROR ON FIFTH WORD 


a 
: 
f 


15S 
AE INTO#<8. #2), abBA: COMPARE RHBA AFTER FORCED 
sWRITECHECK ERROR IN FIFTH WORD 
158 : BRANCH F GOOD 
;BUS SS REGISTER IN 


ERROR AFTER 
FORCED WRITE CHECK ERROR ON FIFTH WORD 
NG GOT DESTROYED 
IN REINTO THEN CHECK 


OsERFLGS 


$1, R0 *GETTING READY TO FLOAT 1! 
#iRFROM, RI :START ADDRESS WHERE 1 GOES 
RO, (R1)+ *MOVE FLOATING 1 

:GET 1 ONE BIT LEFT 
7§ *BRANCH IF 16 NOT DONE 


#177776 TTING READY TO FLOAT 0 
BRE RORY CIB, #2), aie *STARTING ADDRESS WHERE 177776 GOES 
RO, (RL)+ sMOvE I IN FLOATING 0 


RO GET 0 ONE BIT LEFT 
10$ ;BRANCH IF CARRY SET 

RO SNCLAREA sFILL REST OF BUFFER WITH 1 
WREROM+< 32 * FROM 

WRFROM+77) 


WITH DATA 
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DERPSS.P11 WRITE CHECK ERROR 
e345 037 o4073& JSR —s- RO, DaCOMPAR CHECK 
° B3taog Bosses OOS WRFROM :G00D BUFFER 
931002 O03! REINTO TEST BUFFE 
1004 00400 256. NUMBER OF WORDS CHECKED 
031908 031014 lis ZRETURN POINT FOR ERROR HEADER 
931010 931020 123 SRETURN POINT FOR ERROR DATA 
031012 931026 1ST? SRETURN FOR GOOD COMPARISON 
031014 194004 118: ERROR 4 sREAD NEXT ERROR 5 
631016 00207 RTS PC ZRETURN TO COMPARISON SUBROUTINE 
631020 104005 125: ERROR § :DATA IN REINTO BUFFER GOT 
CHANGED AF WRITE 
ZCHECK DATA ER AANG 
?HORD NO CONTAINS THE WORD 
!NUNBER THAT GOT CHANGED 
031022 000207 RTS = PC ZRETURN TO COMPARISON SUBROUTINE 
931024 9o0240 13S: NOP ;ONLY A BRANCH POINT 


2 gee ce per gr ge ee ge ec cmreteme 
RROR REGISTER #1-B1T 4 -FORMAT ERROR 
HE SIMULATED DISK IS FILLED on CYLINGER O TRACK 1 


TES 
5% 
1 SECTOR O FORNAT=18 BITS PER WORD AND 4 
:# OF 125252, A READ HEADER AND DATA CCMMAND IS GIVEN WITH 16 BITS 
*# WORD FORMAT, FER=BIT4 SHOULD SET BUT THE 

* MSOULE BE COMPLETE 


EVES RPGR ic SERRE PARRA aac dad ease Un Mue ree oe: 





| oo EFSELESLESSLELEARRERLEP RS SSKEESESRELS RES LRSSLSRRAERFSSEELRESEE SRS 
031026 oo0004 +5172: SCOPE 
| 
| 031030 012706 001000 MOV —-WSTACK,SP sRESET STACK 
031034 012737 on0072 004172 MOV saTTNO,@STSTNM ©; THIS SAVES TEST NUMBER 
| 
; SETUP FOR WHAT IS TO BE READ 
| : HEADER CRC IS RESTORED FROM A SUBROUTINE 
021042 012746 125252 “MOV sw 125252, (SP) _;DATA TO BE READ 
031046 012705 Oo0400 MOV =: #256. , RS s COUN 
031052 012700 046230 ‘MOVs wDISK?. RO ‘START OF SIMULATED DISK DATA 
031056 011620 1S: MOV —«(SP)," (RO)# MOVE IN DATA ON TO SIMULATED DISK 
031060 00+ 305 DEC ORS C 
1062 001375 BNE 18 ;BRANCH IF 256 NOT COMPLETE 
O31064 005726 1ST (SP )4 LINDO =(SP) 
| 031066 Ol270S 00021 MOVs #17., RS '2 ECC WORDS 
| 


‘ 
| 
| 
| 
{ 





Z 
e 


mea 3 


Banach 


RARER RRR 
O0DNMUISL Wu O 
BasREREeE 
Raa wane 


SEBssa8 


RUSS Sook! SOS REA E RSS WONT NS 
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Te ERROR REGISTER #i1-BIT 4 -FORMAT ERROR 
;1 DATA GAP 
314 TOLERANCE GAP 
005020 es: CLR (RO) ;CLEAR ECC, DATA GAP, AND 
0CS305 DEC RS ; TOLER GAP 
001375 BNE es ;BRANCH IF NOT COMPLETE 


; THESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV #0'0, @d8CYL ;16 BITS PER WORD 

sCYLINDER 0, FORMAT 16 BITS 
Move = al, DeSECOTR+1 ; TRACK 1 
MO #0 OTR ;SECTOR a 





DAT 
CLR aaX stHIS IS A READ CO 
ISR RS, —_ :GO TO CALCULATE CRC 
WCRC 


- THESE ARE REGULAR SETUPS 
004727 O40064 3sR asCLDISK ; SETUP GENERAL REGISTERS 
012777 177770 150430 MOV a s “4, , JRHWC DATA 4 HEADER WORDS 
012777 003126 150424 MOV SREINTO, oRHEA So ARTING ADDRESS OF READ BUFFER 
112746 o00000 MOVE #0, -(SP)  3IN LOWER BYTE GET SECTOR 
lle76— 000001 000001 MOVB a 1(5P) ;GET TRACK IN HIGHER BYTE 
012677 150416 MOV T fey SECTOR IN RHDST 
012777 014000 150414 MOV aPMTOBtECT DRHOF’-16 BITS PER WORD 
iEC CTION INHIBIT 
*BECAUSE ECC IS NOT GOING 
-T0 BE CHECKED 
90s077 150412 CLR JRHCA :CYLINDER O 
004737 040120 JSR PC, @SCHECKT ;CHECK FOR DVA,ROY,MOL, DPR, DRY 
013711 oo2044 MOV DeREFOR, IR} ;READ HEADER AND DATA=72 
901 GR JRERFLGS ACLEAR E ERROR FLAG 
7 O44 PC, JSCOMHD ;READ HE DATA 
;IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
TEE RCT CYNC’ HEADER, HEADER CRC HEBOER GAP AND’ 
iSYNC BYTE YTE HAVE GONE BY AND CFR WERE CORRECTLY 
: AND DATA ARE TO BE CHECK ED. 
*IN CHECKING READ DATA THE WRITE FROM BUFFER 
: “RF ROM” if LLED WITH EXPECTED DATA AND 
A ARE MADE 
005737 001772 TST QeERFLCS ;ANY ERRORS ALREADY THERE 
oo10s2 BNE TST73. ;BRANCH IF YES 
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ERROR REGISTER #1-BIT 4 -FORMAT ERROR 


Ooe0e8 


000s: 


040736 


037470 
100020 001702 


3$: 


4§: 
S$: 


6$: 


re 5 Capecnece 


v 
MOV #0, ay 
nove at, 

& 
MOV (SP)+, 
MOV #0, 
MOV #0 
MOV 256. 
MOV #125262 
MOV Re, 
DEC 1 
SNE 


13 


HSETYENe REA BOY APR 


ay LOWER BYTE GET SECTOR 
GET TRACK IN HIGHER BYTE 

T TRACK/SECTOR IN BUFFER 
:K Y1 IN BUFFER 
;KEYe IN BUFFER 
‘DATA WORD COUNTER 


DATA 
sbATR INTO BUFFER 
*BRANCH IF 256 NOT DONE 


;NOW READ DATA BUFFER WILL BE CHECKED 


JSR RO, d8COMPAR 


3 CHECK 


TES yt 

R OF WORDS CHECKED 
RETURN POINT FOR ERROR HEADER 
; RETURN roan FOR ERROR DATA 
RE TURN FOR GOOD COMPARISON 


RETURN TO “COMPAR™ 
;WORD NOS potns TO 4 ARE 


ie 10g ee ARE a DATA WORDS 


;NOW SEE THAT FCRMAT ERROR BIT GOT SET 


JSR PC, d#8PUTREG 


CMP #FER!DCK, J8ER1 


BEG TST73 
ERROR 20 


; BRANCH 


;SAVE REGISTERS 
sFORMAT ERROR SHOULD BE SET 
IF GOOD 


3A 16 BIT PER WORD READ WAS ATTEMPTED 
;WHEN THE DISK HAD 


THE FoRnAl 8 vias 18 BITS PER 
BUT ERROR REG 


T RIGHT 
ae at es GENERATED 


5 9 A 6 98 9 9 A AE A HEA EE EE 
3 ERROR REGISTER #1-BIT 4 -FORMAT ERROR 


THE SIMULATED DISK HEADER IS FILLED WITH CYLINDER 0 


t ETEST 7 


;* 


FILL EXPECTED DATA 
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DERPSS8.P1] 173 ERROR REGISTER #1-BIT 4 -FORMAT ERROR 
g110 :4 TRACK CTOR 0 FORMAT 18 BITS PER WORD 
Ill % A WRITE’DATA COMMAND IS GIVEN WITH SAME HEADER 
Bile :% EXCEPT FORMAT BIT. THE DATA SHOULD NOT BE WRITTEN. 
giiy © KEERERERELARLE FRE RA SLE AKKRLLA LEAF RLA LE LARSELALAASEEAAELAFLALSERAES 
8115 o31402 o00004 +6173: SCOPE 
B16 NOW A WRITE DA para WILL BE ATTEMPTED WITH 
B11? t WRONG F 
8113 031404 012706 001000 MOV #STACK, SP RESET STACK 
l 
fe 031410 012737 000073 004172 MOV STTNO,d#TSTNM ;THIS SAVES TEST NUMBER 
8124 
8125 031416 012737 177777 O44S26 MOV 8-1,8NOSYNC —_; SET FLAG SO THAT DATA SYNC 
8126 "AND DATA IS NOT RE 
Ble? 031424 004037 o40002 FRMATI1: JSR RO, J8CLAREA *CLEAR SIMULATED DISK 
8128 031430 046330 -WORD DISK >FROM 
81239 031432 047354 “WORD TOLGAP+16 510 
8130 031434 900000 “WORD 0 :DATA 
8131 ; THESE ARE SETUP FOR DISKLESS USE ONLY 
8132 031436 005037 o44412 CLR ascYL CYLINDER 0, FORMAT 18 BIT WORDS 
an ine ie Bees ae co oe 
8135 paiues boeaa? 044416 CLR aeKEY 1 *KEY1 O 
8136 031456 005037 Oo44420 CLR askEY2 *KEY2 0 
8137 O31 Ybe O1e737 044460 MOV #4, J8NOWORD *NO OF DATA WORDS 
8138 0314 1 1 o444e2 MOV #1; 98x ‘WRITE DATA 
8139 031476 004537 O4l242 JSR RS; a#CRC *GO TO CALCULATE CRC 
8140 031502 047516 WOYL 
glu 031504 047526 GCRC 
B14 ; THESE AER REGULAR SETUPS 
8145 031 g04037 040002 JSR RO, 2#CLAREA sEILL WRITE FROM BUFFER WITH 125252 
Biué 03151 WRF ROM : FROM 
8147 031514 002070 : WRFROM+6 :TO 
8148 031516 125252 125252 DATA 
8149 031520 O04 O40054 JSR PC, S8CLDISK > SETUP GENERAL REGISTERS 
8150 031524 13939 177774 150070 MOV #-4, SRHWC 256 DATA WORDS 
8151 031532e 012777 OO0e0b2 150064 MOV #WRFROM, JRHBA TARTING ADDRESS OF WRITE BUFFER 
Bibe 631540 005077 150070 CLR JRHDST fe CTOR=0 
1 1544 012777 O1 150066 sENTe2, ORHOF 316 BIT PER WORD FORMAT 
| 154 031552 005077 150064 CLR :CYLI 
| Be Biss fn Boe mY GMAISATS. Hate pease PV M™-OPR OR 
| Se GaiEe 004737 ooh 308 GR Fitite CLEAR DATA cate 
| e153 TOON THE = ; a SE TeaT San PRINTOUTS. 
| Bibl CRE, HEROER GAB RD Eye BYTE’ rhe Bit BY 
| Blbe ; AND eRe aet CTLY DETECTED 
| eles 1576 004737 0374 sDATA 18 i PC. gaP TREG § ;SAVE REGISTERS 
| Gis G8leo8 Oosrar 001778 Tet DAgRFLGS {HAS ANY ERRORS OCCURED? 
| 





G13 
SILA, BRAT ASS loi 


ee 


8186 031605 001044 BNE ‘ sBRANCH IF YES 

gies Baiei9 BSR Byeaae MOV or RI $22 PR TTEN INTO “DISK” 

8169 031620 Ole 000004 MOV R 

8170 O31be4 1873 oso000S o44s32e 1S: MOV c SHERWORD FOR ERROR WORD 

8171 031632 Pp CMP RO; ( :COMPARE GOOD DATA WITH DATA ON DISK 

8172 631634 dO14e4 3EQ “BRANCH IF GOOD 

81 1636 O01 001124 MOV RO, a#SGDDAT *GO0D DATA 

aim Baibie O14 32 bO11¢6 MOV -(R1),a8$BDDAT : TA 

175 O31646 160237 O44 SUB R2,a sERWORD : WORD NO 

g176 O3165¢ gos? 32 001772 TST SHERFLG : ANY ERRORS ALREADY THERE? 

gi36 Bateee rar ER oR 4¥ + ERROR ON waite DATA COMMAND 

e173 ;0N A WRITE bara WITH 

818: ‘SHOULD BE WRITTEN 

818 :WORD NO GIVES WORD IN ERROR 

8183 031662 000401 SR S$ :BRANCH TO AVOID PRINTING NEXT ERROR 

8184 O31664 1 23: ERROR 5 

HE Ie Bree omg ay SALI com) FPaGtRL EOE OT 

8187 p31670 neat seabea BIC #177177,(SP) | KEEP ONLY SWITCH 7 AND 8 

8188 031700 O22726 Go0e200 CMP #SW07, (SP)+ :IS 7 SET AND 8 RESE 

8189 031704 O01402 BEQ 4§ ‘BRANCH IF YES 

8190 031706 Oo0S302 3$ DEC *IF NOT COUNT 256 WORDS 

B13! 031710 001345 BNE 1$ *BRANCH IF 256 NOT DONE 

B133 sNOW CHECK TO SEE THAT FORMAT ERROR BIT GOT SET 

Bl 031712 022737 o00020 o01702 4S: CMP FER, J8ER1 sFORMAT ERROR SHOULD BE SET 

B13” 031720 001401 BEQ TST74 ;BRANCH IF GOOD 

8199 031722 104020 ERROR 20 ;A 16 BIT PER WORD WRITE DATA 

8200 :WAS ATTEMPTED WHEN THE DISK 

8201 *HAD THE FORMAT BIT =0=18 

8202 ;BITS PER WORD THE WRITE 

8203 “WAS CORRECTLY ABORTED 

8204 “BUT ERROR REG. 1 WAS WRONG 

8205 

B20 
Bae 5% ERROR REGISTER (RHER TEST 

8209 * x BIT #1 (ILLEGAL ecis TER)  OARROT BE TESTED ON POP11 THIS BIT 
8210 * IS FOR POPIO USE ONL 

ae 
| eae EEE ERERKEE LER ELE ERE E RS LR ELELE RK EK SELES EEK A HHS ETEPEE ELE RSRELE ASAE 
! Bell tATEST 74 TEST ILF BIT #0 IN REG. RHERI 

8216 + L TION T ATA, ERR, ILF 
| B61? +H i amma, ion Nak Tne PRR SHULD Set MXF,OLT, TRE | 
| 8219 ae Ree eo ee eee fy ; 
| 8220 031724 o00004 +4174: SCOPE 
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TEST ILF BIT #0 IN REG. RHERI 


1$: 
es: 


4§: 


Ss: 


6$: 


#17. .RS5 
SeTHP ILL, (RO) 


i or 


EF fe 


ig 


Ss 





sRESET STACK 
sTHIS SAVES TEST NUMBER 


;CLEAR REGISTERS 


GAL 
COUNTER (16 GOOD FUNCTIONS 
31S THIS e LEGAL FUNCTI 
: BRANCH 


S TLLEGAL A od OS TTON 
see on ae irs ar FONCTION 
erga I In he 
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DERPSB.P 174 TEST ILF BIT #0 IN REG. RHERI 
N (BIT 15) 

“ nP OST ERROR BIT 14) 

280 ON LINE (BIT 12) 
8291 7 ine vite READY (BIT 7) 
Be8e 032154 OC4737 O42266 7$: ISR PC, JHMIDDLE GIVE A WRITE HEADER AND 

sDATA COMMAND WITHOUT 
8284 iC EARING THE ERRORS 
Soe YR UTLL CORE BACK BEFORE 
ess? He END core Bak OUT ITS 
8289 032160 010237 032166 MOV R2, 28108 ‘Rove E ucse ADDRESS 
8230 164 10441 WAT WAIT FOR MXF 
1 166 10$: .WORD O *ADDRESS OF RHCS2 
Bie 170 001000 MXF 
032172 004737 037470 11$: JSR PC, J¥PUTREG ;SAVE REGISTERS 
SSec 176 032737 o40000 001700 BIT #TRE, d8CS1 ; TRANSFER (BIT 14) RHCS1 
8295 _ ; SHOULD BERR TO MXF 
8297 032204 001003 BNE 13$ *BRANCH IF 
8298 010137 001122 MOV Rl, 2#SBDADR *FAILING REGISTER RHCS1 
8299 O3eel2 104011 ERROR 11 : TRANSFER ERROR BIT 14 RHCS1 
8300 ‘SHOULD BE SET DUE TO MxF 
8301 sL OCR sc OPE RETURN POINT 
5303 032214 000660 13$: BR 1$ BRANCH FOR NEXT FUNCTION 
8304 032216 900240 12S: NOP 
8305 
8306 
S308 Si 
83093 ; LRHEAAAALALL ELE LLLELELELLLALALLLALARLLELALALE LA LALA LE LELELAAERER 
8310 STE T 75 RHERI- BIT #2 - REG. MODIFICATION REFUSED 
B32 3% IN THIS TEST THE REGISTERS ARE IN TWO GROUPS 
831 1% FIRST = RHCS1,RHOST, RHOF .RHCA,RHERL, RHER2,RHER - SETS RMR 
8314 + SECOND - RHMR,RHAS - DOES NOT SET ate 
B16 ii IF WRITING IS’ ATTEMPTED DURING AN OPERATION 
8317 1+ 
B318 is ONLY ONE REGISTER IS WRITTEN INTO THAT IS RHCA 
2% 

B35 :4 1 THE REGISTERS CONTENTS ARE SAVED IN “REINTO” BUFFER 
8322 + 2 WRITE HEADER AND DATA IS STARTED 
8323 + 3 ATTEMPT IS MADE TO WRITE INTO REGISTERS 
8324 * 4 ALL REGISTERS ARE COMPARED 
8326 © RESKAAEAELERERARERRRA EAE REAR ASRS RKAE RSA ARES RRA A HERE LA AAA RRERAE 
8327 032220 OoO0004 tST7S: SCOPE 
8228 
e350 032222 012706 001000 MOV eSTACK, SP RESET STACK 
8332 
8333 032226 012737 000075 004172 MOV #TTNO,98TSTNM ;THIS SAVES TEST NUMBER 





ré 0064 JSR PC pac, BISK ;CLEAR DISK 
4 Ge EE Bi tat 


gos riots 1s: Noy (RO) sRS HAS ADDRESS OF REG. UNCER TEST 
BF5955 Boe ws MOV eee sREINSTATE UNIT NO. 


;SET UP FOR AN OPERATION (WRITE HEADER AND DATA) 


: 013777 O02040 147340 MOV JWRIFOR, ORHCS1 sHRITE HEADER AND DATA=62 
Eas 012777 1 147324 MOV #-10. , IRHWC 21 
12777 147320 MOV SWRFROM, JRHBA; : f 
8347 012777 OO00010 147322 MOV #10, JRHOST ‘DESIRED TRACK=0, SECTOR=10 
O3e312 052777 000010 147306 BIS #Bat. IRHCS2 : REMENT INHIBIT 4 
eau 012777 147312 MOV SFMT22,aRHOF  :FORMAT 16 BIT + 
e350 O3eaeb 008077 147310 CLR A 'Y 
;SAVE REGISTERS il 
032332 004037 


o40S42 JSR RO, J#SAVER ; SAVE 
RHCS1 ;FROM 
~_ 


Ss 
SS 


370 
;NUMBER OF REGISTERS SAVED 


THE COMMAND IS GIVES TO 
Tet TE HEADER AND DATA FOR CYL=0, SECTOR=10 
;TRACK=0 IT COMES BACK AFTER ONE SECTOR 
HAS PASSED 


032344 012777 000001 147276 MOV #DMD, ORHMR ;SET DIAGNOSTIC MODE 
O3e35e 147 INC aRH i, GO TO RHCS si WITH be 
12715 1 MOV #1 , ars ;TRY WRITING ALL BITS EXCEPT 
1 0031 BI #DMD, J#REINTO+20 ee Tord if SAVED REGISTER RHMR 

nee ene rere Bre SRNR’ DERE INTOSE s ist RMR IN SAVED REG. RHERI 
032376 042737 000200 003150 BIC #ORY, JBREINTO+C2 CLEAR DRY IN RHDS1 
032404 052737 oO40000 003150 BIS HERR, oaRE! °SET ERR IN RHDS! 
O22412 052737 000001 003126 BIS 8G0,9#REINTO | ;SET GO {tN SAVED REG. RHCS1 
032420 042737 O00200 003126 BIC #ROY, J#REINTO  ;CLEAR RDY BIT 

sAFTER AN ATTEMPT TO WRITE INTO A REGISTER 

SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
032426 004037 o4OSH2 JSR _—-RO, O¥SAVER : SAVE 7° 
032432 001630 RHCS1 : FROM . 
032434 O02062 WRFROM :TO I 
032436 O00016 14. :NUMBER 


;AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

sQPERATION T THE UPPER BYTE OF AAAS WILL BE SAVED AS IS 

:S0 THAT THE COMPARES ARE ONLY OR THE LOWER BYTE 
032440 113737 003145 002101 HOVB © M#REINTO+17, BaiRFRONTI7s SAVE UPPER RHAS Ee 


HSH SRR ER SRRRR raat sa carer unty 


;COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH AFTER 


tO i MACY11 27(732) 98-OCT-76 11:10 PAGE 166 
Pil T7S RHERI- BIT #2 - REG. MODIFICATION REFUSED 
} 
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8390 
8391 032446 004037 040736 
8392 


003126 

553 032466 

8398 peice ee 044532 
Oiess? 


001626 


004737 040064 


rt 


Dae bos bea bee baa bat ht Bae be be 
WONWU£WM-O 


all 
— 


at tpe tt tet tht 


8440 032540 000004 


B42 
B443 O3eS42 012706 001000 
BY44 
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037534 


147116 





08-OCT-76 11:10 PAGE 167 
REG. MODIFICATION REFUSED 


JSR 70 RO, J#COMPAR 





REIN Gp SuFF ER 

WRF ROM iP Bu FER 

4 = RETURN FOR ERROR 

§ ; SANE 

5 *RETURN FOR GOOD COMPARISON 
4$: MOV JSERWORD, RS GETTING READY TO INDEX 

sy Btn we 

MOV RHCS1-2(RS), J#RE AILING REG. ADDRESS 

ERROR 1 ONTENTS | OF REGISTER 

RTS PC ae 


aD utr 
SAN ATTEMPT TO WRITE 
;DURING AN OPE 


;THE FOLLOWING CLEAR MAY SET THE ATA BIT BECAUSE GO IS HIGH 


ss:  jsR PC, @NCLDISK —_; CLEAR DISK 


iiTest 76 MAKE CURRENT CYLINDER = le 


RENT CYLI 
s RELEAELLLARLLELELALL LAE LALA ELLE LE LALLA ERAEAA LE RELL LE LEAF LELELAE 


t8176: nov #STACK, SP T STACK 
JSR PC, PY" LDISK Tht DRIVE 
MOV #DMD, JRHMR I SET DIAGNOSTIC MODE 
JSR RO, JAMAKECYL *SUSROUTINE TO GIVE A SEEK 
C0 FOLOWED BY A INIT 
*THIS SHUOLD CHANGE RHCC 
1 *CHANGE RHCC TO 1 


SEE LELA KESSEL ESE HHH SELLE AK SKK LAL LEE LE KK EHS LLHS EKA HEEL LA LAL HEE 
T 77 ERROR REG] - BIT #7 - HEADER COMPARE ERROR 
THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1 
SECTOR=| KEYS=1, 256 WORDS OF 177400 
RD. HEADER AND DATA COMMAND 1 GIVEN TO READ 
CYP INPERS! TRACK=1 SECTOR 1 KEY1=1, KEY2=1 
REINTO BUFFER IS FICLED Mt WIT 
Wi ROM 1S FILLED atTH toodo” 401,1,1,1, AND ALL 177400 
THE READ REINTO BUFFER {S’ bepEC CTED TO 
RAVE WHA AS IN URFROM 10000 4O1,1,1 AND ALL 177400 


© KELLLLLLRERERE SELLER EL LKKALE RHE KEKE RFE SEL HELE EKER EK ELA FRERS ELSE 
+4177: SCOPE 


3H BOC DI BEC OC IK RC 2c . 


MOV 





#STACK, SP ;RESET STACK 
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001000 


000101 


O44S26 


041516 


040002 


040002 
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MOV #OMD, JRHMR ;SET DIAGNOSTIC MODE 

JSR RO, JEMAKECYL 3SU BROU TINE TO GIVE A SEEK 
*COMMAND FOLOWED BY A INIT 
: THIS uot CHANGE RHCC 

0 : CHAN 


55 RHEE REAR HERE REE EERE EE EERE LEER EEE EE ERE A ERAS LEE 
SKTEST 101 ERROR REG1 - BIT #7 - HEADER COMPARE ERROR 


;% THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1 


SECTOR=1 KEYS=1, 256 WORDS OF OF 177 
AR HEADER a DAT Rano 1S 5 GIVEN To. READ 


ura 1,1 BND ALL 177400 
TER THE ob00 FER 3’ EXPECT ECTE 
HAVE WHAT IS IN ae - ° 8000. 401, 1,1 AND. Be 177400 


} TST + Pig -siuiieieiiiieieieiiiieieieieieieesieniein 
101: 


eogenarnarvmrnurnureaes 
= 


MOV #STACK, SP ;RESET STACK 
MOV STTNO,d#TSTNM ;THIS SAVES TEST NUMBER 


CLR J#NOSYNC SET FLAG SO THAT DATA SYNC 
SAND DATA IS READ 
-FILL SIMULATED DISK 
S #SETDSK ;SET UP SIMULATED DISK 
*FILL REINTO. BUFFER WITH'O 
ISR RO, J¥CLAREA FILL REINTO 
TO FROM 


REINTO# (256.42) ;0 ' 


:DATA 
sFILL WRFROM WITH 10000,401,1,1, AND ALL 177400 
MOV . #WRFROM 
MOV afnTee tho $4008 INTO WRFROM 
MOV (RO) =TRACK1, SECTOR 
MOV Of aD )+ INTO WRFROM+ 
MOV a’ (ROD i} INTO WRFRONS6 
FILL ALL O 


JSR RO, J#CLAREA ;FILL WRFROM 
WRFROM+10 ;FROM 
WRFROM+< 256. *2> 
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DERPSB.P11 T101 ERROR REG] - BIT #7 - HEADER COMPARE ERROR 





8558 033002 177400 177400 : DATA 
8560 sNOW GIVE A READ HEADER AND DATA COMMAND 
8561 sCYLINDER=0 
; TRACK =0 
* sSECTOR = 1 
BEES 933004 994037 041644 JSR RO, JHHCCRCE 
10 600072 72 sREAD HEADER AND DATA 
8557 033012 999990 0 CYLINDER 
B5b8 033014 001 1 : ;SECTO 
€569 033018 900000 0 : TRACK 
8570 033020 177400 256. WORD COUNT 
8571 033022 003126 REINTO *RHBA BUFFER 
B76 033024 000000 0 * READ 
8574 033026 Ol 1 sHEADER COMPARE 
Ee 033030 000240 1$: NOP "RETURN POINT FROM HCCRCE 
8577 
8573 it im tat GN CM INEE eee 
8580 TEST 102 MAKE CURRENT CYLINDER = 1 
6581 STEPETTTEEETTEELESTTS EET ESE TET ESET ELT ST ESTEE ESET STE SET ET TEESE TT 
8582 033032 op0004 juttens SCOPE 
8583 033034 012706 OO01000. MOV #STACK, SP sRESET STACK 
8584 033040 004737 O40064 JSR PC, aHCLDISK INIT DRIVE 
858S 033044 012777 CO0001 146576 MOV #DMD, JRHMR sSET DIAGNOSTIC MODE 
8586 93320S2 004037 O42400 JSR RO, JRMAKECYL SUBROUTINE TO GIVE A SEEK 
8587 *COMMAND FOLOWED BY A INIT 
8588 “THIS SHUOLD CHANGE RHCC 
B583 033056 000001 1 “CHANGE RHCC TO 1 
8591 
8592 
8593 
e594 
Boge 
8537 o LLL KEK KL KEALERL ALLELE KEL SLSR ELSE REA ELK EER ESKER REEL EEL EL EERE ER EE 
598 TEST 103 ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 
8600 5% THE SIMULATED DISK IS SET UP FOR CYLINDER=0, TRACK=1 
8601 * x SECTOR=1, KEYS=1, 256 WORDS OF 177400 
8602 * A WRITE DATA COMMAND IS GIVEN TO WRITE CYLINDER=1 
8603 * TRACK=1, SECTOR=1, KEY1= = 
8604 + BUFFER IS FILLED WETH 1ese52 
8605 * x REINTO purrs IS FILLED WITH 
8606 + x AFTER THE WRITE COMMAND THE Disk IS EXPECTED TO 
607 +i HAVE WP 400 
8609 © LLLKRKAAKRA AS RKA LEAR SKRAA RHA AAR SRR A RELA RAKES KAEARAS ERA RASH KKAERE 
Bb10 033060 o00004 +éT103: SCOPE 


| 8612 

| 8613 033062 012706 001000 MOV ¥STACK, SP ;RESET STACK 
| 

! 


= ae eee POON cen? de eye 


8 ee a eer eee ee 
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DERPSS.P T103 ERROR REG.1 - BIT a? - HEADER COMPARE chade 
Sie 
Be18 OSS086 Clée7s7 OO0io3 d0%i7e MOY sTTNC, aeTSTNm THIS SAVES TEST NUMBER 
9618 
8619 C33074 012737 177777 oMNt2E MOV #-1, 28NOSYNC SET FLAG SO THAT CATA SYNC 
8$20 :ANO DATR IS NOT READ 
8521 sFILL SIMULATED DISK 
Ses = 033102 OC4737 O41516 JSR PC, JeSETOSK sSETLP SIMULATED DISK 
sre 
S558 FILL WRFROM WITH 125252 
8628 033106 O04037 o4D002 ISR RO, JSCLAREA FILL WRFROM 
B62 O33112 Ooz062 WREROM FROM 
8630 O33115 03062 WRFROM+< 256. #2> :T0 
8631 O33i16 iesese 125252 ‘DATA 
oa *FILL REINTO WITH 256 WORDS OF 177400 
8634 ‘THIS IS WHAT IS EXPECTED TO BE ON DISK EVEN AFTER 
8635 SAN ATTEMPT TO WRITE l2S2Se2 
ees 032120 27 40002 ISR RO, 28CLAREA sFILL REINTO 
8638 033124 003126 RE INTO ‘FROM 
B629 Sosles O04: REINTO#<256. #2> :T0 
| B40 033130 177400 177400 
8642 sNOW GI Z A WRITE DATA COMMAND 
| Beus ICYLINOER = 1, 
| 8644 : Ks 
| GEMS “SECTOR = 1 
| BEM 
| 8647 033132 o04037 O41644 JSR RO, JRHCCRCE 
| BEY8 033136 OO00060 60 WRITE DATA 
| Be¥S 033140 000001 1 :CYLI 
| B50 933142 000001 1 SECTOR 
| B51 033144 000001 : TRACK 
B52 023146 177400 w2ck sWORD COUNT 
| B653 f@31S0 doenb2 WRF ROM :RHBA BUFFER 
| B54 O33152 900001 1 * WRITE 
Bree Pee 033154 900001 1 ;HEADER COMPARE 
| 6657 03315 oc0de40 1S: NOP RETURN POINT FROM HCCRCE 
| B6ss 
| Be6o 
| BEEI 
BE63 15 tebt Srtadaladebadatettyttal-te-t-t-te-tad-tytal-tet-t-t-taladal-tealeahalhalahalaialaalaahalabalabaialaiate 
| BEB4 ikTEsT 104 MAKE C YLINDE 
} Bess  SEAASSERUSUDEUERESLERSESRULERSREEDEROEUURNOEGUNROLOEEEEEEEEEED 
| BEBE 033160 +éT104: SCOPE 
| BE67 033162 012706 001000 MOV #STAC RESET STACK 
| 8668 0331/66 004737 940064 JSR PC, aeclbiek> INIT DRIVE 
_ B669 033172 012777 000001 146450 © MOV #OMD, IRHMR SET DIAGNOSTIC MODE 





ee ett on oat 
DERPSB.P 


8870 O33200 004037 


8673 033204 


sIgTINNTIS IER 


SERRERERERE 


WDONMUN£ WMO 


S 
Ho 
& 





T104 


oooooc 


MACY Er¢ 
MAKE CURRENT CYLINDER = 0 


c42400 


001089 


000105 


177777 


O41S16 


o40002 


o4ocde 


004172 


O44S26 


732) 
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: SUBROUTINE TO GIVE & 

sCOMMAND FOLOWED BY 8 
HIS SHUOLD CHANGE R 

0 SCHANGE RHCC TO 0 


EEK 


JSR RO, deMAKECYL 
*'s ner 


; RERFRELEARRAEREL EASES EERE EEL ELEE ELLER EEE LAER SEES ESE FEES EEEEES 
: ATEST 105 ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 


We ie oe ee 


wewe er ee erase ee ee 


THE SINULAT DISK IS SET UP FOR SSYLINDER=0, TRACK=1 
SECTORS] YS21, 256 WORDS OF 1 
A WRIT E bat TA Ponhane 1s “GWEN TO MRE CYLINDER=0 


NT LLED W 400 
AFTER THE WRITE COMMAND THE Disk IS EXPECTED TO 
HAVE 177400 


“OPT Mo panap aceasta mare -FeRE + pe bana 


tét105 


MOV #STACK, SP ;RESET STACK 
MOV STTNO,@sTSTNM  ;THIS SAVES TEST NUMBER 


MOV #-1, J8NOSYNC 
;FILL SIMULATED DISK 
JSR PC, dsSETOSK ;SETUP SIMULATED DISK 


;SET FLAG SO THAT DATA SYNC 
:AND DATA IS NOT READ 


sFILL WRFROM WITH 125252 
JSR RO, d8CLAREA ;FILL WRFROM 
WRF’ :FROM 


WRFROM+< 256. #2) 310 
leS2Se ;DATA 


SFILL REINTO WITH 256 WORDS OF 177400 
‘THIS IS WHAT 1S EXPECTED TO BE ON DISK EVEN AFTER 
SAN ATTEMPT TO WRITE 25252 
JSR -RO,ACLAREA —S ; FILL. REINTO 
T FROM 


REINTO 
yD eae ;70 


OL GIVE A + ey DATA COMMAND 








ce aeeee meee a 


* 
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OERPSS.P T105 = ERROR REG.1 - BIT #7 = HEADER COMPARE ERRER 


me me re ee ee a 
* 
. 


gre SSECTOR = 
8728 033260 O04037 O41644 JSR ha 

are3 4 9 60 WRITE DATA 

? 0 : CYLINDER 

8731 033670 009901 1 :SECTOR 

8732 72 900000 5 ACK 

8733 033274 177400 -256. WORD COUN 

8734 033276 O020be2 WREROM ‘RBA coe 

B35 033300 000001 1 : WRITE 

8737 033302 900001 1 sHEADER COMPARE 

e738 033304 900240 18: NOP RETURN POINT FROM HCCRCE 
ge : © SFESERELESAESESERELRESELSSALSALEA SLES SALE LSSSASERELLELAKEESLELSELE 
ere SKTEST 106 ERROR REG.1 - BIT #8 - CRC ERROR 

< 

8744 s# THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1 
8745 2% SECTORS | KEYS=i. 256 OF 177400 

8745 t# A READ HEADER ato DATA COMMAND I GIVEN TO READ 

8747 Lt YLINDER=0, TRACK=1, SECTOR=1 l=1, KEY2=1 

8748 i REINTO BUFFER IS FILLED WITH 0 

8749 : OM IS FILLED WITH 10000,401,1,1,1, AND ALL 177400 
8750 1 AFTER THE READ THE REINTO BUFFER {S’ EXPECTED 

Brel *# RAVE WHAT SS IN HRFROM 18000-40110) AND ALL 1774 
8753 * SSSSELELELSAEEHERALSAERELASELELELESKEAEASSLALLALELESE AERA FLA SESE 
8754 933306 900004 +4T106: SCOPE 

BveE 

8757 023310 012706 001000 MOV #STACK, SP RESET STACK 

He 

e760 033314 012737 000106 004172 MOV STTNO,asTSTNM ;THIS SAVES TEST NUMBER 

8762 

8763 033322 005037 o44S26 CLR JBNOSYNC SET FLAG SO THAT DATA SYNC 
8764 "AND DATA IS READ 
8765 “FILL SIMULATED DISK 

8766 033326 904737 041516 5sr PC. aaSETDSK SET UP SIMULATED DISK 

767 033332 005137 O4é312 COM DBHCRE *CHANCE CRC TO GIVE HCRC 
8769 sFILL REINTO BUFFER WITH O 

ae 933336 go4037 oxcoce RO, 2#CLAREA sEILL REINTO 

ae heed pease a #2> ;TO ; 

8774 02334 000000 sDATA 

ere FILL WRFROM WITH 10000,401,1,1, AND ALL 177400 

8778 033350 012700 oco20E2 MOV #WRFROM 

8779 O35 012720 010000 MOV aFMT22 thoy 310000 INTO WRFROM 

8780 012720 00401 MOV #401, (RO)+ s4OLSTRACKL SECTOR 

8781 033364 15750 000001 MOV #1, (RO)+ 1 INTO WRFROM+ 































033370 Ole7e0 000001 MUV #1, ‘RO)+ 31 INTO WAFROM+E 
;FILi ALL O 
heated eames 040002 JSR RO, d#CLAREA ;EILL WRFROM 
00 e WRFROM+10 3FROM 
W930b5 WREROM+< 256. #2> 510 
1 177400 ;DATA 


;NOW GIVE A READ HERDER AND DATA COMMAND 


8783 


dsddaasae | 


3 
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DERPSS. PI] Tioe | ERROA RES Ts ert as - che PARSE 
os :CYLINDER= 
;TRACK = 1 
‘SECTOR = 1 
Soa 033406 004037 O41644 ISR RO, JBHCCRCE 
8797 O3a4le 900072 72 ;READ HEADER AND DATA 
8798 033414 00000 0 CYLINDER 
8799 033416 OO000! i ;SECT OR 
Beat pase rears -256. COUNT 
8802 033424 003126 REINTO ;RHBA BUFFER 
8803 033426 O00000 0 ; 
Bene 033430 0 CRC ERROR 
8806 O33432 0040 1S: NOP “RETURN POINT FROM HCCRCE 
Be08 St 
ats s SAFSERESESALSLARERSSLSSERELE LSA SELESRLAARA RA SEARLE AERAERA KRAZE LAALEEE 
B80 SRTEST 107 ERROR REG.1 - BIT #8 - CRC ERROR 
8812 # THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1 
8813 : SECTOR=1, KEYS=1, 256 WORDS OF 177400 
| ge14 1% A READ teabER AND DATA COMMAND IS GIVEN TO READ 
| BRIS +H CYLINDER=0, TRACK=1, SECTOR=1, KEY1=1, KEYe=1 
| B816 1 REINTO BUFFER IS FI WITH 0 
| 8817 * WRFROM 1S FILLED WITH 10000, 401,141, AND ALL 177400 
e8ie * AF RE TER THE READ THER REINTO BUFFER {S EXPECTED TO 
| ae WHAT IS IN WRFROM - 10000,401,1,1 AND ALL 177400 
8821 o SSESELSASSSELSELESSELA RE LLSLALARA REL SERAA SAA RELA REL ALLE AALELEKEE 
8822 033434 9O00004 +éT107: SCOPE 
| 8823 
| Bese 033436 012706 001000 MOV #STACK, SP RESET STACK 
ese aS 
| BEC8 033442 012737 000107 004172 MOV #TTNO,3STSTNM ;THIS SAVES TEST NUMBER 
| 830 
| 8831 033450 005037 o44S26 CLR JeNOSYNC SET FLAG SO THAT DATA SYNC 
i 832 “AND DATA IS READ 
| 8833 -FILL SIMULATED DISK 
Be ga9454 004737 Ovi516 SR PC, a8SETDSK ;SET UP SIMULATED DISK 
| B83 60 005137 Oy46312 DelicRC “CHANCE CRC TO GIVE HCRC 
| 2837 sFILL REINTO BUFFER WITH O 





Oe 


z 
a 


SSEEe 


peer t tit i RERERERE 


TEPER. | 


033562 


000004 
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o40002 


l 
000401 
000001 
000001 


040002 


O41644 


033564 012706 001000 
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ERROR REG.1 - BIT #8 - CRC ERROR 


18: 


toe RO, J#CLAREA ;FILL REINTO 
FROM 


REIN . 
REINTO+<256.#2> ;TO 
0 ;DATA 


;FILL WRFROM WITH 10000,401,1,1, AND ALL 177400 


MOV ae RO 
MOV #FMT2e,(RO)+ § ;10000 INTO WRFROM 

(RO 0)+ *4O1=TRACKL, SECTORI 
MOV {tags 31 INTO WRFEROM+ 


MOV +h (ROI }T INTO WRFROM*S 
SFILL ALL 0 

JSR _—-RO,OSCLAREA =; FILL. WRFROM 
WRFROM+10 FROM 

WRFROM+< 256. #2> 'T0 

177400 DATA 

*.NOW GIVE A READ HEADER AND DATA COMMAND 
JCYLINOERO 

TRACK 

$ECTOR = 1 


"JSR —-—«RO, ARHCCRCE 


72 sREAD HEADER AND DATA 
0 *CYLINDER 

256. WORD COUNT 

RE INTO . BUF 

0 CRC ERROR 

NOP SRETURN POINT FROM HCCRCE 


: 1 HAHEI HEHBHHEHHBHHEHHHHEHHHHHEHE HEHEHE HEHE HEHEHE EE 
SKTEST 110 ERROR REG.1 - BIT 8 - CRC ERROR 


od 
ee 


THE SIMULATED DISK IS SET UP FOR CYLINDER=0, TRACK=1 
CTOR=L KEYS=1 WORDS OF 177400 
TE bn 1S GIVEN TO WRITE CYLINDER=0 
TRACKA SECTORS1, KEYI=1. KEY2=1 
WRFROM BUFFER IS LEED Wty 125252 
REINTO BUFFER IS FILLED WITH 177400 
TER THE WRITE COMMAND THE DISK IS EXPECTED TO 


loci 


tét110 


MOV #STACK, SP ;RESET STACK 











a 
He GG 


SCRE ity 


WONWULWUr 


SES ESI SE SEEM ian sh Ns 


a a ne 0 ee - 


em ee ee 


012737 


012737 


004737 
005137 


PRROA REG I © Brtears CAE ERROR £0 


000110 oo4172 


177777 044526 


041516 
046312 


040002 


040002 


041644 


MOV “aTTNO, a8TSTNM ;THIS SAVES TEST NUMBER 


MOV #-1, J#NOSYNC ;SET FLAG SO THAT CATA SYNC 
AND DATA IS NOT READ 

;FILL SIMULATED DISK 

“ISR PC, J#SETDSK ;SETUP SIMULATED DISK 

COM aaWCRC ;CHANGE CRC TO GIVE HCRC 


;FILL WRFROM WITH 125252 
JSR RO, d#CLAREA ;FILL WRFROM 
ROM FROM 


MRERO. +256. 42> iT 
125252 DATA 


sFILL REINTO WITH 256 WORDS OF 177400 
;THIS IS WHAT IS EXPECTED TO BE ‘ON DISK EVEN AFTER 
SAN ATTEMPT TO WRITE leSeSe 


JSR RO, d#CLAREA ;FILL REINTO 
TO FROM 


RE ; 
REINTO+<256. #2) 310 
177400 
sNOW GIVE A WRITE DATA COMMAND 
SCMLINOER, = 0, 
*SECTOR = 1 
JSR RO, J8HCCRCE 
60 rth DATA 
0 YLANOER 
1 rE TOR 
1 s TRACK 
-256. ;WORD COUNT 
WRF ROM ;RHBA BUFFER 
1 ;WRITE 
0 ;CRC ERROR 
1S: NOP ;RETURN POINT FROM HCCRCE 


; ee gma OE Ig Or ey eemmeememens 
;RTEST 1 ERROR REG.1 - BIT #8 - CRC ERROR 


i van TED DISK als SET ofr ZSYLINDER=O, TRACK=1 

: A WRITE DATA COMmAND I 1S GIVEN ee WRITE CYLINDER=0 
TRACK= . SrCTORT KEYe=1 

WRFROM BUFFER IS bette. utTH 125252 


mi i OK 
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a8 EE 
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001000 


600111 


177777 


041516 
046312 


o4000e 


040092 


041644 


e7 (732) 


004172 


044526 


-# 
’ 
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ERROR REG.1 - BIT #8 - CRC ERROR 


FF NTO BUFFER IS FILLED WITH sere 
m1 i. on ITE COMMAND THE DISK IS EXPECTED TO 


s KEELE ALAAAAA LLL ERALA SHELL AA LALA LE LAA LELERAAALAL SELL LE RELL LLERLLE 


teT111: SCOPE 


MOV #STACK, SP ;RESET STACK 


MOV STTNO,d#TSTNM  ;THIS SAVES TEST NUMBER 


MOV #-1, J#NOSYNC ;SET FLAG SO THAT DATA SYNC 
sAND DATA IS NOT READ 


;FILL SIMULATED DISK 
JSR PC, d#SETOSK 
COM dsWCRC 


;SETUP SIMULATED DISK 
;CHANGE CRC TO GIVE HCRC 


;FILL WRFROM WITH 1l2SeSe2 
JSR RO, d#CLAREA ;FILL WRFROM 
FROM 


WRFROM+< 256. #2 70 
125252 DATA 
SFILL REINTO WITH 256 WORDS OF 177400 

STHIS IS WHAT IS EXPECTED TO BE ON DISK EVEN AFTER 
SAN ATTEMPT TO WRITE 125252 


JSR RO, d#CLAREA ;FILL REINTO 
FROM 


REIN : 
REINTO+<256. #2) 370 
177400 
;NOW GIVE A WRITE DATA COMMAND 
; CYLINDER = 0, 
STRACK = 1 
:SECTOR =1 
JSR RO, #HCCRCE 
60 ;WRITE DATA 
0 :CYLINDER 
i sec RIOR 
-256 e 
yen inet uo cou FER 
0 sone ERR 
NOP ;RETURN POINT FROM HCCRCE 
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DERPSB.P11 T1l) ERROR REG.1 - BIT #8 - CRC ERROR ~ 


lech lie”) MA NENT CLINE S 10S 


Saini 


1 ; 

ll : &TE AKE CURRENT CYLINDER = 
ais jeopcenpecguensennteaneaseeanesseeeseeneresesseesensseensteaney 
8013 033772 o00004 +87 112: 
8014 033774 012706 001000 soy aSTAC sRESET STACK 
3015 000 Oba? 37 b40064 ISR PC ci a INIT DRIVE 

i6 12 00001 14S636 SRHMR *SET DIAGNOSTIC MODE 
8017 O340le 004037 O42400 TSR RO, J&MAKECYL :SUBROUTINE TO GIVE A SEEK 
9018 *COMMAND FOLOWED BY A INIT 
90195 *THIS SHUOLD CHANGE RHCC 
3020 034016 000632 410. “CHANGE RHCC TO 410. 
a5 35 
9024 
Suse 
9027 : REE SLSLAKERESL FASE LARGER EEEES ES KRSA ESSERE ERE BEES ESL RE SEALER ESSE 
9028 TEST 113 RHDS1 - BIT #10 9 LAST SECTOR TRANSFE 
3028 + WRITE CYLI R MLO. qe Be PER WORD 
303 ; i TRACK 18. al., Revs R OF WORDS 
9032 te LST BIT # 10 RHDS1 SHOULD SET AFTER WRITE 
9033 # IS COMPLETE. 
9035 SESKEEEERAR ER SEEKER EEK E RFK ELE RARE ERS ERE RHEE EARS LSRE REEL REARS EE 
2038 034020 000004 +6113: SCOPE 
$038 034022 012706 001000 MOV #STACK, SP RESET STACK 
apg Og 
Fa 034026 012737 000113 004172 MOV #TTNO,d#TSTNM ;THIS SAVES TEST NUMBER 
9043 034034 004037 o40002 JSR RO, J#CLAREA ;CLEAR SIMULATED DISK 
8644 034040 046330 -WORD DISK : FROM 
sous O3404e2 Ou? 354 “WORD TOLGAP+16 :TO 
S046 034044 ; WORD ‘DATA 
9047 ;THESE ARE SETUP FOR DISKLESS USE ONLY 
9048 O3404% 012737 010632 o44412 MOV #410. !FNT22, oe ie erePe 410. 
apeg 034054 112737 o4441S MOVB #18.,ad8SECOTR+1 ; TRACK 18. ete 
3051 034062 112737 Bopose o44414 MOVE  #21.;a8SECOTR ;SECTOR ei. 
i ion Geet Beals a a 

€LR Te Y 
100 0127 00400 £0 MOV 3 iNO OF paTA WORDS 
9055 106 0127 1 422 MOV [rai WRITE DATA 
2058 114 004537 O41242 JSR RS’ #CRC G0 TO CALCULATE CRC 
120 o44412 CYL 

9058 O34le2 O4E3le WCRC 
9059 
9060 
8061 ; THESE ARE REGULAR SETUPS 





ee nnn ee ee 
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MAINDEC-11-DERPS 
DERPSB.P11 





14 


RHDS1 - BIT #10 LAST SECTOR TRANSFERRED 


ce 


Nae 


RRREERR A 


ZSRFCHEZRSE 
oo00--00 


SF — Fb = P-e bb b= he PH 
a an ae oe ee 


yiues 
28 
sa 


ree REE eee SEE EE: 


: 
g 


8 
a 


8 ooco 
Beasse 


a8 


et ee 


9062 
3 
9066 
9067 
aoe 
9070 
$071 
9075 
9078 
$079 
$080 
$081 
9082 
3083 
$084 
9085 
9085 
9087 
3090 
$091 
9032 
$093 
3034 
8095 
$096 
9097 
3098 
$099 


ne 


: 


: 


eee 


di 


BOVRREGU—O 


28 


a 


001652 037534 
1124 
001722 O0011c6 


WRFROM+< 256. #2> 10 ; 
JSCLDISK OUP GENERAL REGISTERS 
S6.,dRHWC +256. DATA WORDS 






JSR RO, d#CLAREA yar WRITE BUFFER WITH 377 


MOV SWRFROM, IRHBA STARTING ADDRESS OF WRITE BUFFER 


MOV #21. ,-(SP) SECTOR 2 
MOVE #18. : TRACK ig 
MOV }4.ORHDST SECTOR 21. TRACK 18 
MOV T22,dRHOF 316 BITS PER WORD FORMAT 
MOV #410. .aRHCA :CYLINDER 410. 
JSR PC, J#CHECKT ‘CHECK FOR DVA,RDY, DPR, DRY 
MOV QSWRIDAT,JR1 § :WRITE DATA=60 
CLR DeERFLCS CLEAR ERROR FLAG 

#COMHD “WRITE DATA 


JSR PC, a 
HE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
HE “COMHD™ ROUTINE IT MEANS SECTOR GAP 


a 


iN » SYNC BYTE 
HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY 


YNCS WERE CORRECTLY DETECTED 
TO BE CHECKED 
JSR PC. JSPUTREG SAVE REGISTERS 


TST OeeRFLGS sHAS ANY ERRORS OCCURED? 
BNE S$ ;BRANCH IF YES 

MOV #377,RO : 

MOV #DISK,R1 *DATA WRITTEN INTO “DISK" 

MOV #256. : COUNTER 

MOV #256.+1, J#ERWORD sFOR ERROR WORD 

CMP RO, (R1)4+ sCOMPARE GOOD DATA WITH DATA ON DISK 
BEQ 3$ *BRANCH IF G 

MOV RO,@ T *GOOD DATA 

MOV -(R1),a8$BDDAT BAD DATA 

SUB R2, JHERWORD *ERROR WORD NO 

TST DSERFLGS “ANY ERRORS ALREADY THERE? 
BNE 2g sBRANCH IF YES 

ERROR 4¥ “ERROR ON WRITE DATA C 

BR 64S *BRANCH TO AVOID PRINTING NEXT ERROR 
ERROR 5 WORD NO GIVE N ERR 

TST (RL)+ *UNDO =(R1) BAD DATA 

MOV aaSWR,-(SP) GET SWITCH SETTING 

BIC #177177,(SP) | KEEP ONLY SWITCH 7 AND 8 

CMP #SWO7, (SP)+ :1S 7 SET AND 8 RESET 

BEQ 4§ : H OUT IF YES 

DEC R2 IF NOT COUNT 256 WORDS 

BNE 1 “BRANCH IF 256. NOT DONE 

MOV J#DS1,-(SP) GET RHDS1 

BIC #PROG (SF) “CLEAR PR 

CMP #LST!OPR!DRY! WV, (SP)+:1S LST HIGH ? 

BEQ cs sBRANC D 

MOV JHRHDS1.DBREGADR’ ;FAILING REG. ADDRESS 

MOV #LST!DPR'DRY!'VV, aRSGDDAT ;GOOD DATA 

MOV Si,a#SBDDAT ';BAD DATA 

ERROR 1! *LST DID NOT SET AFTER 


3 
3 
3 
| 
3 
3 
3 
3 
3 
3 
| 
3 
3 
9 
9 
3 
9 
9 


Bs 6 b= bb be 0 bs bb BF Fe be 


SSS 
NOU £We--O 





;LAST SECTOR ON LAST TRACK 
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DERPSB.P11 T113.—- RHDS1 - BIT #10 LAST SECTOR TRANSFERRED 
18 ;ON LAST CYLINDER WAS 
19 3W 





E 
VV BIT #6 MAY OR MAY NOT BE HIGH 


$-- & 9 b= tb PD 


5 O34408 013737 001630 O34416 SS: MOV QSRHCS1, deb$ 

22 O34414 104412 WAT 

23 O34416 6S: 0 ;RHCS1 ADDRESS 

c O344e0 900200 RDY ;WAIT FOR READY 
26 


tJ 
™“ 


55 HEAR ARSE SEE SER EAE IESE SEE HE EEE AEE AE HEHEHE REE HEHE ER EAE HEHEHE REE EE REE EEE EEE 
SRTEST 114 ERROR REGISTER 1 - BIT #9 ADE 


% A WRITE DATA COMMAND IS GIVEN TO CYLINDER 410 


1% SECTOR 21 TRACK 18, KEYS 0, DATA 377 
i WORD COUNT REGISTER FOR 326 (256+66+4) WORDS 
2% AFTER 256 WORDS HAVE BEEN WRITTEN - 
2% AOE SHOULD COME UP 
x RHWC WILL SHOW 4 BECAUSE THE SILO IS 6& WORDS AND 
tx 256 WORDS HAVE BEEN WRITTEN - TOTAL 322 
1% THIS IS 4 SHORT OF 326 
© KLEKERERE ARE RELAREREE RA LER REE RE RARER RAE RA RARE RE AA RARE EFEAAEAEE 
000004 tST114: SCOPE 
012706 001000 MOV #STACK, SP ;RESET STACK 
012737 000114 004172 MOV #TTNO,@aTSTNM ;THIS SAVES TEST NUMBER 
004737 o40064 JSR PC,a8CLDISK —° ;INIT AND SET GENERAL REGISTERS 
004037 o40002 JSR RO-@SCLAREA § .3CLEAR SIMULATED DISK 
046330 ~WORD DISK : FROM 
047354 : TOLGAP+16 $70 
000000 ; WORD DATA 
; THESE ARE SETUP FOR DISKLESS USE ONLY 
012737 010632 o44412 MOV #410. !FMT22, J#CYL ;CYLINDER 410 


716 BITS PER WORD 
OW441S MOVB #18.,a8SECOTR+1 ; 18. 
000025 o44414 MOVB He]. g¥SECOTR j SECTOR el. 


WWWWD ODWWWWDWOWOWOWWOWOWWOW DW OWVWDWWOWWDOVDOWWWVDWBVVOI ODOWWDOWDWWWWWWWWWW 
Od 8 VON EOP 00 NUE CORO Codd SONU EGO OD SUN Ee oh bee 





i 
044416 CLR : 
005037 O44420 CLR aakEY2 *KEY a 
012737 OOO400 o444E0 MOV #256.,d8NOWORD :NO OF DATA WORDS 
012737 O00001 o444e22 MOV #1,a0X “WRITE DATA 
004537 041242 JSR RS, J#CRC GO TO CALCULATE CRC 
044412 CYL 
046312 WCRC 
; THESE ARE REGULAR SETUPS 
004037 o40002 JSR RO, J#CLAREA sFILL WRITE BUFFER WITH 377 
WRFROM : FROM 
beer RUC ESB. He? mm 
004737 040064 JSR PC, J#CLDISK SETUP GENERAL REGISTERS 
034550 012777 177272 14SO44 MOV #-326.,0RHWC 3326. DATA WORDS 
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WUOWDDOWOWDVDWOVVOWWOWWDNWOWOWWWWWW 

PRN A RS Ra - 

Be VERLGN SSSVRR ISH Sse No 
fu 


SSIS 
; 


RECECCREE 
WON CWO 


034764 


T114 


113737 


004037 
3126 
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145040 
000081 


he 145030 


145024 


003153 002107 


040736 
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ERROR REGISTER 1 - BIT #9 AOE 


fy HURT ROP A gRHeR ieee OF WRITE BUFFER 
MOVB nF et 


MOV ata anor Tea cig OS Leaner 


MOV #410" JRHC 
JSR PC, JACHECKT CHECK oer. vA, RDY, OPR, DRY 
MOV 3 wiRIDAT, dR1 WRITE DATA=60’ 


CLR RFLGS’ CLEAR ERROR FLAG 
-THE REGISTERS WILL BE SAVED IN REINTO SUFFER 
JSR RO, J#SAVER : SAVE 

RHIC : FROM 

RE INTO :T0 

19. “NUMBER SAVED 


:GIVE WRITE DATA COMMAND 

SR PC, d&COMHD ;WRITE DATA COMMAND 

+ lm SAVED_REGISTERS TO EXPECTED VALUE 
#-76,d8REINTO ;SAVED RHWC SHOULD BE=76 


BY #WRFROM+<2%256. >4< 248. > JHREINTO+2 
SHOULD BE WRFROM+2S6+66 
#OR, JBREINTO+4 :SAVED RHC 


M 
BIS 
ate #IR O#REINTO+4 SAVED RHC 


a i 





asc TRE JRE INTOS6 -SAVED RHCS1 SHOULD HAVE SC TRE 
MOV JHREINTO+10 ;SAVED RHERI SHOULD HAVE AOE 
MOV SRHBST DEREINTO+12 sSAVED RHDST SHOULD HAVE= 


*RHDST IS UNDEFINED 
MOV #411. ,OHREINTO+20 *SAVED DESIRED CYLINDER ADDRESS 
MOV SRA TENT J#REINTO+24 s SAVED RHAS SHOULD HAVE APPROPIATE BIT 


BDMD » alt INTO+2 
BIS #WATAIERR!ILST, JHREINTO+30° ;SAVED RHDS1 


sAFTER A WRITE DATA COMMAND WITH AOE ERROR 
‘SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
SSR RO, J#SAVER ; SAVE 

RHWC 
WRF ROM :TO 
17. *NUMBER OF REGISTERS SAVED 
:AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
j OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 


0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB asREINTO+2S, SauRFRONS2S¢ SAVE UPPER RHAS 


;COMPARE REGISTERS BEFORE WRITE DATA COMMAND 
WITH AFTER COMMAND 
SSR RO, J#COMPAR ; COMPARE 


REINTO ;G00D BUFFER 

WRF ROM ; TEST BUFFER 

17. : NUMBER OF REGISTERS 
i ia RN FOR ERROR 


es sRETURN FOR GOOD COMPARISON 





ee etl at 
DERPSB.P11 T114 


i 


ae3e 
$236 035030 
Se 
$238 
$239 035032 
$240 
aus 035036 
eo ies 
$246 035056 
$e47 035064 
$248 035066 
$249 035070 
551 38100 
$252 tet 
ge5) 038112 
$255 035114 
$256 035116 
$257 parse 
29 036156 
$260 035132 
$261 
aces 035136 
035140 
$264 035142 
9265 
9266 035144 
9267 
9268 
$269 
$270 
9271 
9272 
. 9273 
9274 035144 
$275 035146 
9276 035152 
4578 O3sie4 
$279 
9280 
9281 035170 
S282 
9283 
9284 


Bi sc0e 


001000 
3? 040064 


MACY11 27(732) 
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ERROR REGISTER 1 - BIT #9 ACE 


044532 1S: MOV JRERWORD, RS sGETTING READY TO INDEX 
ADD RS OUBLE ERROR W 
001620 037534 MOV RHUC-2(RS) aeREGADR “FAILING REG. ADDRESS 
ERROR ORAED AOE ERROR CAUSED IMPROPER 
trecist ER CHANGE 
RTS PC ane TURN FQ FOR FURTHER COMPARISONS 
001772 23: CLR D#ERFLGS sane ERROR FLAG 
“DATA IS 70 B CKED 
037470 ie mC, a 3 Puthet ; SAVE REGISTERS 
000377 MOV :G00 
b45230 MOV wists R spaTR UR OAT TTEN INTO “DISK” 
MOV 5 
000400 o44S32 3S: MOV #256. J#ERWORD :FOR ERR FOR WORD 
CMP RO, (RL)+ *COMPARE GOOD DATA WITH DATA ON DISK 
BEQ “BRANCH IF GOOD 
001124 MOV RO, JUSGDDAT ; GOOD DATA 
001126 MOV SAL) J#SBDDAT :BAD DATA 
044532 SUB R2, JHERWORD + PRROR WORD NO 
001772 TST JHERFLGS ANY ERRORS ALREADY THERE? 
BNE 4S ; BRANCH IF 
ERROR 4 “ERROR ON WRIT E DATA COMMAND WITH FORCED AOE 
BR S$ “BRANCH TO AVOID PRINTING NEXT ERROR 
4g; ERROR § ; ORD No GIVES WORD IN ERROR 
S$: TST (R1)+ -(Ri 
00114 MOV aeSWR, - (SP) fe emai ING 
717 BIC 177177, (SP) KEEP ONLY Si Ton AND 8 
ooo200 CMP #SW07, (SP)+ 7 SET AND 8 RESET 
BE 7$ aide OUT IF YES 
6S: DE R2 IF NOT COUNT 256 WORDS 
BNE 3$ *BRANCH IF 256. NOT DONE 
73: 


: iresT 116 HAE CURRENT CYLINDER 2 One 
TEST 115 MAKE CURRENT CYLINDE 


ree eed eeapeasnna nen euneuseea 00 RC 0st EEE AEO HEE EEAA EEE TEEE 


+éT115: 5 
Soy #STACK, SP 
ISR PC sBNCLDISK : 


144464 
JSR RO, vORNEKECYL 


000001 
042400 


;RESET STACK 
INIT DRIVE 
;SET DIAGNOSTIC MODE 
;SUBROUTINE TO GIVE A SEEK 
; COMMAND FOLOWED BY A INIT 
;THIS SHUOLD CHANGE RHCC 
CHANGE RHCC TO 0 














































SuemEe 





enseasests 
WONMUIC Wr-O 





RSENS 
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DERPS8.Pil 


T11S 


000004 
012706 


012737 
004737 
012777 
052777 
042777 


004037 


001000 
000116 


040064. 


000001 
000004 
000004 


77400 
Onsize 
44352 
010000 


012000 


” 900400 


177777 


012000 


002604 


002044 


o40S4e 





MACY11 27(732) 
_ MAKE CURRENT CYLINDER = 


004172 


144430 


144422 
144414 


144360 


144324 


144306 


s RELL HRAARE RAE E SALA ELS RA AE LA AELL ELE REL LERE LER EERE REEF RELL AREELE 


tht TEST 116 ERROR REGISTER 1- BIT #10 IAE 


5 ERR RH HERE AEA IEEE EERE EE EEE IEEE EERE SHEARER EEE EERE REALE EERE 
;RESET STACK 

;THIS SAVES TEST NUMBER 
;CLEAR REGISTERS AND SET UNIT NO. 


tétiis: § 


1$: 


a eee ee ee 


ek = B 11:10 PAGE 183 


‘JSR 







A READ HEADER AND DATA IS GIVEN TO TRACK 20 
SECTOR 0 


AN INDEX PULSE IS GIVEN TO GET RHLA TOC 0 


IAE BIT SHOULD SET 


SCO 
MOV 
MOV 


wSTACK, SP 


PC, J#CLDISK 
:GIVE INDEX PULSE 
Mov #0MD, JRHMR 
BTS AMIN. JRHMR 
BIC #MINX? JRHMR 


#TTNO, J8TSTNM 


;SET DIAGNOSTIC MODE 
;SET INDEX 
;CLEAR INDEX 


; THESE ARE REGULAR SETUPS 


MOV #-256. , JRHWC 
MOV FREINTO RO 
MOV RO, JRHBA 
MOV #FMT22, (RO)+ 
MOV #12000, (RO)+ 
CLR (RO)+ 

CLR (RO)+ 

MOV #256. .RS 

MOV #-1, (RO)+ 
DEC S 

BNE 1$ 

MOV #12000, JRHDST 


JSR ——- PC, CHECKT 
MOV @#REFOR, RI 
CLR - MHERFLGS 
HOY _sFNTe2, ARHOF 
CLR RHC 

JSR RO, J#SAVER 


3256 pate WORDS 4 HEADER WORDS 


;TH HESE THO INSTRUCTIONS GETS 
‘ADDR, OF WRFROM INTO RO AND 
* BUS ADDRESS REGISTER 
*FORMAT=16 BIT WORDS 
CYLINDER=O 

?TRACK=20 SECTOR=0 KEYS=0 
{KEY i=0 

;KEVe=0 


; COUNTER 
SHOVE ALL ONES FOR DATA 


;BRANCH IF DATA NOT COMPLETE 


;TRACK=20 SECTOR=0 





;CHECK DVA, RDY, OPR, DRY 


;GET READY FOR WRITE HEADER AND 
;DATA WITH 62 IN RHCS1 

;CLEAR E 
; FORM 
;CYLINDE 


RROR FLA 
MAT gi Tel (16 BIT WORDS) 


;THE REGISTERS WILL BE a REINTO BUFFER 












ee 
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DERPSB.P11 TLI6 ERROR REGISTER 3- BIT #10 IRE 
“$342 035342 001822 RHWC ;FROM 
$343 636344 003126 REINTO :T 
9344 035346 O00023 19. "NUMBER SAVED 
axe :G0 TO WRITE HEADER AND DATA 
3348 913700 Od1650 MOV TBRHMR. RO sNOW RO WAS MAINTENANCE REG. ADDR. 
$349 035354 612710 OC0001 MOV 8DMD, RO :SET DIAGNOSTIC MODE 
3350 OS2777 O00001 144242 SIs 860, MRHCS! :60 
$352 “CHANGE SAVED REGISTERS T0 EXPECTED | VALUE 
$353 449000 903134 &Is SSC'TRE, JBREINTO+6 -SAVED RHCS] 
$354 036374 912737 00 003136 MOV SIBE SSREINTO+10 :SA 
025402 .012737 012001 003140 MOY = 812001 GOREINTO+12; SAVED RH 
8356 O35410 S133? 902002 9031Se MOV OSATTENT SaREINTO 0+24 -SAVE 
O3s4ig § 1 903154 Is BOND, DeRE INTO TEavEB KER 
052737 140000 003156 BIs sata! PRR aeREINTOISO CAVED RHDS1 
re -SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
035432 004037 o4OS42 $5R RO, a8SAVER : SAVE 
035436 901622 RHWC SF RON 
N35440 02062 WRFROM °T 
035442 o00023 19. t NUNBER OF REGISTERS SAVED 


;AS_UPPER BYTE OF RHAS CAN BSE CHANGING IN A DUAL PORT 
. ;OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
SO THAT THE COMPARES ARE ONLY VALID “FOR THE LOWER BYTE 
O3S444 113737 003183 002107 MOVB © QWREINTO+2S, DRWRFROM+25; SAVE UPPER RHAS 


$355 
$357 
9358 
9369 
$369 
$361 
9362 
$363 
§364 
$365 
‘S366 
$367 
$368 
$365 
ary 
9372 sCOMPARE REGISTERS BEFORE READ IN PRESET COMMAND 
$273 “WITH AFTER COMMAND 
$374 O254S2 004037 040736 3SR RO, a8COMPAR ; COMPARE 
a7 baste 003126 REIN : 6000 
002062 WRFR on > TEST ER 
9377 035462 00002! 17. "NUMBER OF REGISTERS 
$378 035464 035472 25 ;RETURN FOR ERROR 
9379 035466 035472 23 
$380 025470 025512 3$ RETURN FOR GOOD COMPARISON 
$282 035472 013705 o44S3e2 23: MOV JSERWORD, RS ;GETTING READY TO INDEX 
$383 035476 ADD RS 
$384 035500 016537 001620 037534 MOV RHUC-2(R5), JsREGADR 5 “FAILING REG. ADDRESS 
S2es 035506 104001 ERROR FORCED IAE CAUSED IMPROPER 
9386 REGISTER CHFINGE 
3387 0325510 000207 RTS PC *RETURN FOR FURTHER COMPARISONS 
2383 NO ERRORS 
$29! 035512 004727 O4O064 38: ISR PC, aCLDISK sCLEAR GO BIT 
2535 
$234 : CEFEEEEESELRGS EE REESE RELRFRERFE RARER EA ESERS SAR RERSEREYHERER SLPS LE 
2% t STEST T 117 ERROR REGISTER l- BIT #10 IAE 
9397 + A WRITE HEADER AND DATA IS GIVEN TO SECTOR 22 





ae ee ree ee nee 
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DERPSS.P1] TLI7 ERROR REGISTER l- BIT #10 IAE 
9398 :# TRACK 0 CYLINDER 0 
$368 :# 
ate i WORD COUNT IS SET TO 256. 
a10e i AN INDEX PULSE IS GIVEN TO GET RHLA 70 0 
a408 :# IRE BIT SHOULD SET 

jp PEREREE RARE FLALE LER SLSSLREL ELLER LE LAL ERARELAAERELELFLE SE SSAA AES 

a 38 035516 900004 $47117: SCOPE 
9408 035520 612706 001000 MOV sSTACK, SP RESET STACK 
Hi0 038524 012737 000117 oo4I72 MOV STTNO,3eTSTNM  ;THIS SAVES TEST NUMBER 
sie 035532 004737 o40064 ISR PC, JeCLDISK sCLEAR REGISTERS AND SET UNIT NO. 
Sys :GIVE INDEX PULSE 
9415 35536 012777 900001 144104 mov #DMO ;SET DIAGNOSTIC MODE 
Q416 035544 052777 500004 144076 ars #MINX, IRHMR :SET INDEX 
patti 035552 O42777 O00004 144070 BIC SMINX’ ORHMR CLEAR INDEX 
9419 
20 : THESE ARE REGULAR SETUPS 
see Cysseo 01 177400 144034 MOV #256. DRHWC — ;256 DATA WORDS 4 HEADER WORDS 
S23 35566 01 oo2062 MOV SWRFROM. RO THESE TWO INSTRUCTIONS GETS 
S454 035572 010077 144026 MOV RO, JRHBA ADDR. OF WRFROM INTO RO AND 
S425 : ;BUS ADORESS REGISTER 
9435 935576 012720 010000 MOV SFMT22,(RO)+ iFORMAT=16 BIT WORDS 
9427 ; *CYLINDER=0 
428 035602 012720 o00026 MOV #22. , (RO)+ ‘TRACK=0, SECTOR=22, KEYS=0 
S429 025606 005020 CLR (RO)+ sKEY 1=0 
9430 035610 €LR (RO)+ KEY2= 
$431 035612 012705 op0400 MOV #256. .RS COUNTER 
9432 035616 012720 177777 18: MOV #-1, (RO)+ sMOVE ALL ONES FRO DATA 
9433 035622 005305 DEC RS 
9434 035624 001374 BNE 1§ BRANCH IF DATA NOT COMPLETE 
as 035626 012777 000026 144000 MOV #22. , JRHDST :TRACK=0 SECTOR=22 
ae | 
2133 035634 004767 60 ISR PC, CHECKT ;CHECK DVA, RDY, DPR, DRY 
S441 
S442 035640 '013711 002040 MOV BAWRIFOR,SRL § ;GET READY FOR WRITE HEADER AND 
Q443 , :DATA WITH 62 IN RHCS1 
9444 O35644 05037 001772 CLR QSERFLCS *CLE ERROR FLAG 
Q4y45 O35E50 012777 C10000 143762 MOV 8FNT22, JRHOF s FORMA T=] (16 BIT WORDS) 
ate 025656 005077 143760 CLR JRHCA CYLINDER =0 
e448 iA5 EXCEPTION IS ASSERTED BEFORE RUN IS 
9449 *LATCHED RHWC,RHBA,RHCSI,RHCS2 CANNOT BE CHECKED 
S450 “BECAUSE RHWC WILL’ vane DEPENDING UPON GATE DELAYS 
9451 :ON DIFFERENT UNITS 


3453 ;THE REGISTERS WILL BE SAVED IN REINTO BUFFER 





2 enn ee ene oe oe 
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DERPSS.P11 T11? ERROR REGISTER 1- BIT #10 IAE 
S454 O35662 O04037 o4OS42 JSR RO, J8SAVER : SAVE 
Q4s5 O35666 001632 RHER! “FROM 
9456 035670 003126 REINTO :T0 
o30 025672 Oooo0dI5 13. ‘NUMBER SAVED 
3455 :G0 TO WRITE HEADER AND DATA 
Suey 035674 013700 001650 JaRHMR, RO NOW RO_HAS MAINTENANCE REG. ADDR. fs 
S462 035700 012710 l MOV #0MD, aD *SET DIAGNOSTIC MODE t 
aes 035704 052777 OO000] 143716 BIS 860, JRHCS1 :60 
S465 ;CHANGE SAVED REGISTERS TO EXPECTED VALUE 
$465 035712 012737 002000 003126 Mov BIAE, JHREINTO VED RHERI 
Suey  BSe75e 5 553 ee ae RaEste HOV so +B detiorie, i RHAS 
946 p3e556 p37 o0900!: o03144 81S WOMD  JaRE LAER KERR 
zi70 035742 052737 140000 O0314E BIS sATAIERR, seernoleo: ;SAVED RHDS1 
94472 -SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
S473 035750 004037 o40S4e2 §SR RO, aaSAYER ; SAVE 
9474 035754 001632 FROM 
9475 035756 02062 WRFROM :T0 
pall 035760 Oo0015 1 "NUMBER OF REGISTERS SAVED 
| $478 sAS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
| 9479 SOPERATION THE UPPER BYT E OF RHAS WILL BE SAVED AS IS 
| $480 SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
| pay 035762 113737 003143 002077 have DBREINTO+15, JBWRFROM+15;SAVE UPPER RHAS 
| 9489 
| 5435 ;COMPARE REGISTERS BEFORE READ IN PRESET COMMAND 
S485 *HITH AFTER COMMAND 
9485 035770 040736 $SR RO, J8COMPAR ; COMPARE 
| 9487 035774 003126 REINTO :G00D BUFFER 
| 9488 035776 O0206e2 WRF ROM TEST BUFFER 
| $489 036000 900015 13. *NUMBER OF REGISTERS 
| 9480 936002 036010 2s RETURN FOR ERROR 
| 49] 036004 036010 23 
| oie 036006 026030 33 RETURN FOR GOOD COMPARISON 
| 494 036010 013705 o44532 es: MOV JSERWORD, RS :GETTING READY TO INDEX 
' 9495S 036014 De0505 ADD RS : DOUBL 
| 9496 O360i6 O61 001630 037534 MOV RHER1-2(RS),@#REGADR :FAILING REG. ADDRESS 
a1 036024 104001 ERROR 1 sFORC D CAUSED IMPROPER 
| $499 036026 000207 RTS PC RETURN FOR FURTHER COMPARISONS 
| 9500 
aes NO ERRORS 
| $503 036030 004737 O40064 2S: JSR PC, J#CLDISK CLEAR GO BIT 
| Sepp 
9507  SKESRERASERAEASRERARESASRERARERALAARALELRARAAAAAAALSRELARARRERERAE 
9208 ky TEST 120 ERROR REGISTER 1- BIT #10 IAE 











ce 
Be 
rae 


RARARAAR AA 


= 0 = 0—= bbb = p= 
O00 IIMUILSWIfueNHK-O 


a em ne a ee 8 SY 


US a Se MM AMA 


ene = ee © ern ee 22 ae =: 


Beebe 


he 


MACYLL 27(722) 108,06. 76 11:10 PAGE 187 
ERROR REGISTER 1- BIT #10 IAE 
;# A WRITE DATA IS GIVEN TO SECTOR O 
# TRAC Ack BYLINOER att 
3% UNT I 
° N BR NSES Pulee fs tfvéne TO GET RHLA TO 0 
: 
:* IAE BIT SHOULD SET 
OST Ng 2 peepee np pees anime ceeop inne rapt = 
001000 MOV eSTACK, SP RESET STACK 
900120 004172 MOV 8TTNO,3eTSTNM  ;THIS SAVES TEST NUMBER 
040064 JSR PC, J8CLDISK :CLEAR REGISTERS AND SET UNIT NO. 
:GIVE INDEX PULSE 
900001 143566 MOV ;SET DIAGNOSTIC MODE 
000004 143560 BIS #MINK, IRHMR :SET INDEX 
900004 143552 BIC #MINX, JRHMR :CLEAR INDEX 


; THESE ARE REGULAR SETUPS 


: me NOV sunPBOR Ra . Frese THO : DPR TIONS GETS. oe 
eats MOV ROT oRMEA i ADDRY OF WRERORCS NTO Bo “ANG 
ae BUS aopRESe REGIS inER 
1 18: OV #21, (ADs ct al ONES FRO DATA 
BNE 1 H IF DATA NOT COMPLETE 
oo00000 143476 MOV 13. aRHOST tTRACK=0 SECTOR=0 
001756 ISR PC, CHECKT ;CHECK DVA, RDY, DPR, DRY 
002036 MOV DRWRIDAT,SR1 © ;GET READY FOR WRITE 
:DATA WITH 60 IN RHCS1 
00 CLR GNEREL GS *CLEAR ERROR FLAG 
01 143460 MOV aFMT ‘FORMA SIT=1 (16 BIT WORDS) 
143454 MOV 8411. , QaRHCA CYLINDER =411 
iS XCEPTION IS ASSERTED BEF RUN Is 
TCHED RHWC, RHR, RHCS1.RHCS2 T BE CHECKED 
+ EP CRUSE RHC” WI L. Tay 1 AEPENDING UPON GATE DELAYS 
ON DIFFEREN 
- THE REGISTERS. MILL BE SAVED IN REINTO BUFFER 
o4os42 SR : SAVE 
Rl jFRO 
REINTO 


-TO 
"NUMBER SAVED 





a 


‘vt 
obs 
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sARMNMRRENNRRRENRRAARRE 


RRL 


R 
BIRKRLGS 


SERRE CRC Rae SAR 


PERRERRELS 
WONDU © WI O 


& 


is 


ERROR REGISTER 1l- BIT #10 IRE 


;GO0 TO WRITE HEADER AND DATA 


gee pues my mage HOY SRST TEESE OR 
1 143412 BIS #00. Pe ise 
\ 9031 inn SIRE, 2eRF NTO. OTD eRe 
p1go3 1 ppatee MOY seer Nios 0+2: -savep RrOSt 
013737 002002 003148 Hoy SaAtTENT, DRE INTO+14 14 SAVE RHAS 
37 sad Boaie Bie Soh sk ae INTOTI ae eBAVEDY RHDS1 
-SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
904037 o4os4e2 JSR RO, a#SAVER ; SAVE 
001632 RHERI : FROM 
002062 WRFROM :T0 
900015 13. ?NUMBER OF REGISTERS SAVED 
:AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
s OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
T THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
113727 003143 002077 hove D#REINTO+15, aBWRFROM+15;SAVE UPPER RHAS 
5 GISTERS BEFORE READ IN PRESET COMMAND 
yet ARE EE COMMAND 
004037 040736 JR RO, 2&#COMPAR ; COMPARE 
ROM + po? BUFFER 
000015 13. *NUMBER OF REGISTERS 
14 33 SRETURN FOR ERROR 
3$ RETURN FOR GOOD COMPARISON 
013705 044532 2s: HOV DERWORD, RS TTING EREADY TO INDEX 
D 
016537 001630 037534 MOV RHER1-2(RS), auc i “FAILING REG. ADDRESS 
104001 ERROR FORCED IAE CAUSED IMPROPER 
REGISTER CHANGE 
000207 RTS PC RETURN FOR FURTHER COMPARISONS 
NO ERRORS 
004737 O40064 38: ISR PC, #CLDISK CLEAR GO BIT 


FE etotelotofeleloffelototfelottelefoflefotdelotfeletoteefoftelotfetetotfefetoftefotfebefoteefofoetefofeelefotte 
55 8 3 9 J 9 9 9 9 9 9 9 aE EH 
s#TEST 121 END OF ORIVE 


3% THIS IS THE END OF TEST FOR ONE ORIVE 








ae en ee we eee 
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BPANDECE 1 -DERPS 5 nS at Baive ” 


-Pil Tle) 


9622 
ee 
9625 
9627 036340 op0004—Ctis +éT121 
9628 2 212767 000001 126y2 MOV #1, STIMES 
354 papser rAGaBG 4 TYPE 65$ 
ba 036362 000425 
8633 036436 4s: 
oH 036438 013746 001760 MOV JeUNIT, -(SP) 

104404 TYPDS 
9636 O36444 104400 o36452 TYPE 67% 
9637 O364S0 O00402 BR b6$ 
238 --67§: .ASCIZ /= / 

036456 bé$: 

3640 036456 013746 901112 NOV DeSERTTL, -(SP) 
964 het Apeg 901112 CLR JsSERTTL 
gous OSeNey Boras oo a 
S645 036476 3 42400 CLR ae 
9646 036502 005237 001100 INC aeSPASS 
9647 036508 104400 036671 TYPE SENDMG 
9648 036512 013746 001100 MOV deSPASS, -(SP) 
9649 036516 104404 TYPDS 
9650 036520 104400 036665 TYPE SENULL 
9651 036524 137 007120 IMP deTSTsS 
9652 036530 005337 001762 38: DEC J#NOUNITS 
en fee Ss my 

1 001760 MOV JSUNIT, RO 
9655 O36542 012701 001740 MOV #UNITS:RI 
3658 036546 022100 1S: CHP (R1)+,RO 
aeee paceee BDnT 7S Beg 
9659 036554 011137 001760 2s: MOV (R1), Q8UNIT 
9660 036560 000137 007120 JMP aeTsts 














:4 F THERE ARE MORE DRIVES THEN. THE PROGRAN 
i Jue Bass LE REACHES DrCY DETER ALL DRIVES ARE COMPLETE 


LL Ty Rennnemame renege omammemnerrienr sr 


iAEiyaraTe 65.10 TO o. 


OVER THE “Asciz 


BR Hf. iG 
1655: .ASCIZ <15)<12)/TOTAL ERRORS ON THIS PASS ON UNIT NO. / 


GET READY TO TYPE UNIT NUMBER 


;;TYPE ASCIZ STRING 
IiGET OVER THE ASCIZ 


;GET READY TO TYPE NUMBER OF ERRORS 


;CLEAR TOTAL NUMBER | OF ERRORS 
; STARTING FROM 200 ? 


IF 
‘CLEAR TEST NUMBER 
3 INCREASE PASS COUNT 
;TYPE END PASS # 


;JUMP TEST S 

NO. OF UNITS PRESENT DECREMENT 
BRANCH IF ALL DRIVES COMPLETE 
SUNET UNDER TEST 


15 THIS ear JUST TESTED 
sBRANCH Ss 


;THIS IS NEXT UNIT 
;GO FOR NEXT TESTS. 





a a OP ES ONES a 


MAT 
DERP: 


9661 


SINCERE 


eae 


Se SRESR SE SR IRATERE MACS RREB RES 


SSisie! 
CWLWMY-O 


Baesey 


036566 


-—o— 
tu 


036614 
03651 


0366 


FEE 


036671 
036676 
036704 


C-11-DERPS-8 


Pll END OF PASS ROU 


Ee 


gl Wuceaees 


as 


MaCcY11 


142310 


145276 
100000 


27 ( ) 
Fine 


142270 
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.SBTTL END OF PASS ROUTINE 
© RERLSRRERESAELE LALA SASAS SLA RA LEA SSAA RLALAAE LE LALA LARFLAEALAF SEE 
t RINCRENENT THE PASS NUNBER ($PASS) 
**TYPE "END PASS # XX" CHHERE XXXXX IS A DECIMAL NUMBER) 
#IF THERES A MONITOR GO TO IT 
:#IF THERE ISN’T JUMP TO TSTI 
SEOP: 
SCOPE 
CLR STSTNM ;;ZERO THE TEST NUMBER 
cL TIMES ::ZERO THE NUMBER OF ITERATIONS 
NC PAS i INCREMENT THE PASS NUMBER 
BIC #100000,$PASS ;;DON’T ALLOW A NEG. NUMBER 
DEC (PC)+ +: LOOP? 
SEOPCT: .WORD 
BGT SDOAGN :sYES 
MOV (PC)+,a(PC)+ § }:RESTORE COUNTER 
SENDCT: .WORD 
SEOPCT 
TYPE SENDMG 33 1YPE * " 
MOV $PASS, -(SP) *SAVE SPASS FOR TYPEOUT 
TYPDS 3360 TYPE--DECIMAL ASCII WITH SIGN 
TYPE SENULL TYPE A NULL CHARACTER 
SGET42: MOV d#42, RO :GET MONI TOR ADDRESS 
BEQ SDOAGN | 3BRANCH IF NO MONITOR 
RESET CLEAR THE WORLD 
SENDAD: JSR PC, (RO) #160 TO MONITOR 
NOP SAVE ROOM 
NOP 
NOP $EOR 
SDOAGN: 
JMP a(PC)+ ; ;RETURN 
SRTNAD: .WORD TST 1 
SENULL: . BYTE -:NULL CHARACTER STRING 
SENDMG: .ASCIZ 48518) eno pass’ #/ 


TT SUBROUTINES 
HERE 2 he AILED EXPLATNATION OF HOW THE LOOP ON ERROR WORKS 
ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 

PROGRAM GOES BACK - SeUACLY BACK TO THE BEGINNING OF THE TEST. 


aN TS THIS oreneron ag Aor TABLE Bt LOOP IS USED THEN THE POINT 


He air at ne: THe PROGRAM CAN GO ARE: 
ig ial 9 ATOR W WITHIN A THE. ST UNDER CONSIDERATION 


i1F THe E DOE: oce W TAIN T TEST UNDER CONSIDERATION 
‘THE PROGRAM WILL REVERT T0 OPERATION. HOWEVER, IF LOOP ON 
i TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
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; COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
;NORMAL OPERATION WILL CONTINUE. 


TESTAD: 0 sFIRST ADDRESS OF TEST 
“CLR PS iNeKE PROCESSOR STATUS ZERO 
TYPE 65S -TYPE ASCIZ STR 
BR 45 ‘GET OVER ASCIZ 
S58: sASCIZ <15)<12>/THE protic WAS IN TEST NUMBER / 
"MoV DeTSTNM,-(SP)  ;GET READY TO TYPE TEST 
TYP NUMBER 
TYPE 675 * TYPE ASCIZ STRING 
BR b6$ *:GET OVER THE ASCIZ 
ij6?8: SASCIZ <15><12>/THE LOOP’ BACK PC WAS / 
‘ HOW DUSLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 
TY , SCRLF 
Typ B38 33 TYPE ASCIZ STRING 
ie%s: "ASCIZ <15><12>/SET SWITOH Bee EB op SN PEASR OR LOOP ON TEST/ 
TYPE 71$ 3; TYPE ASCIZ STRING | 
BR GET OVER THE ASCIZ 
54718: "ASCIZ <15><12>/TYPE THE’ FIRST PC OF THE TEST TO BE LOOPED ON/ 
TYPE ;;TYPE ASCIZ STRING 
BR fa GET OVER THE ASCI 
43738: "ASCIZ (15><12>/ FOLLOWED BY A CARRIAGE RETURN 7<15><12> 
* _- RDOCT 
ADD GET LPADR 
MOV a JeSLPADR 
TYPE ;;TYPE ASCIZ STRING 
BR ab sGET OV OVER THE ASCIZ 
54758: PASCIZ <15><12>/TYPE THE’ YOU WANT/ 
4 Pee ;;TYPE ASCIZ STRING 
BR reg ise OVER THE RSCIZ 
5j27S: “ASCIZ (15)<12>/ THE PR TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN /<15 
*  RDOCT 
MOV (SP)+, Q8SLPERR ;GET LPERR 
MOV DSLPADR, -(SP) 
RTI 
.SBTTL SAVE REGISTERS ROUTINE 
: THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
IN MEMORY LOCATIONS TAGED FROM "WC" TO “ECe™ 
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3 as 18 BONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 
;AND NOT THE REGISTERS THEMSELVES. THIS WILL MAKE 
;ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 





PUTREG: 


MOV RO, -(SP) ;sPUSH RO ON STACK 
MOV ORR’ =tSP) + PUSH RS ON. STACK 
MOV #RAWC. RO ABR ING SNoRESS OF REG 
MOV aC, R “STARTING ADDRESS OF WERE SAVED 
MOV #RHCOC-RHWC+2/2,R2_:NUMBER OF REG. INTO Re 
10$: MOV a(RO)+,(R1)+  ;SAVE HARDWARE REG. 
DEC Re 
BNE 10S 
MOV (SP)+,R2 ;;POP STACK INTO R2 
MOV (SP)+°RI ::POP STACK INTO RI 
HOV (SP)+,RO ::POP STACK INTO RO 


-SBTTL FLOAT 1 AND 0 
;FLOAT A ONE AND A ZERO THRU A DESIGNATED REGISTER 
;ABSOLUTE ADDRESS OF REG. UNDER TEST IS IN R4 


MASK: Q ;B1TS UNDER TEST 
LERR: 0 ;ERROR HLT ADDRESS 


BITST: MOV (RS)+, MASK ;FETCH DATA MASK 


Vv {iS}, e ;GET ADDRESS OF REG. UNDER TEST 
MOV RS, LERR ;GET ERROR RETURN ADDR 


ADD #4, RS aye RETURN ADDR. 
MOV #1, R3 ; INITIAL 
BLT1: JSR Be ea ;QUTPUT FLOATING ZERO 


JSR - T SOUTPUT FLOATING ONE 
ROL R3 ;SHIFT PATTERN 
BRE an H IF NOT COMPLETE 
Bre Fg ait ct if TEST 

BLT2: COM R3 :COMPLEMENT PATTERN 


MOV #BLT3, @8LAD  ;SET SCOPE LOOP 
BLT3: BIT #SWO9, J#SWR ;LOOP ON ERROR 


BEQ 4§ ;BRANCH IF NO 

TSTB @#SERFLG ;ANY ERRORS 

BEQ 4$ ;BRANCH IF _NO 

RESET ;START WITH AN INIT 


TO JUMP OVER RTS 
IZE DATA PATTERN 


ik = Peaastkint «Thiritize'TKk 


4§: MOV R3, I¥SGDDAT :S GOOD 
COM aahASK "AND MASK WITH PATTERN 





;INIT FOR te LOOPS 
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Bic auNAsK, Q¥SGOOAT ag CLEAR THE REST 
MOV ats T (Ru) a one 10 : 
ROY arene utp Y FRON ScISTER aa 
BIC rif DeSBDDAT ; AND MASK gut RECEIVED DATA 
COM aaMAsK’ 
CMP aSSGDDAT, aeseopat -1S5 DATA CORRECT 
BEQ 1$ sBRANCH fF GOOD 
MOV (R4). J8SBDDAT 
CMP JeRHCS1, RY sREGISTER UNDER TEST RHCS1? 
SNE 2s * BRANCH 
BIS #RDY!DVA, a8SGDDAT; SET RDY AND DVA 

2s: CMP JBRHCS2, R4 ;REGISTER. UNDER TEST RHCS2? 
BNE 3$ *BRANCH IF NOT 

| oF RY, -(SP) ; 

BIC #tCCIRIOR>, (SP) :KEEP IR AND OR BIT 
BIS (SP)+,a8SGDDAT SET IR OR BITS. IF NEEDED 

3S: JSR PC, JLERR $60 TO REPORT 

ws NOP REPLACE BY louney FOR LOCAL SCOPE LOOP 


RTS 
.SBTTL CLEAR MEMORY ROUTINE 


THIS CLEARS ANY BLOCK OF MEMORY 
FILLING IT WITH ANY DATA 


CALL 
JSR RO, CLAREA 
Xx ;STARTING ADDRESS OF BLOCK 


¥ 
y4 -DATA TO BE FILLED 
?R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 


iRe AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCATIONS 
R3 WILL HAVE DATA T LED 
i78,avoTD DIVIDE ROUTINE TWO DECREMENT R2 WILL BE USED 
MOV R1,-(SP) ;;PUSH R1 ON STACK 
MOV Re, -(SP) *:PUSH Re ON STACK 
MOV R3, -(SP) *:PUSH R3 ON STACK 
MOV (RO)+,R1 >FROM 
MOV (RO)+,Re ; TO 
MOV (RO)+,R3 : DATA 
SUB R1,Re °NO. OF LOCATIONS MINUS TWO 
0 #2,Re GET TWICE NO OF LOCATIONS 
1S: MOV R3, (R1)+ *MOVE IN DATA 
DEC Re 
DEC Ro 
BNE 1$ ;BRANCH IF NOT COMPLETE 
MOV (SP)+,R3 POP STACK INTO R3 
MOV (SP)+'Re2 3 ;POP STACK INTO Re 
MOV (SP)+'RI *:POP STACK INTO RI 
RTS RO * RETURN 
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LAD: 
T.SCOP: BIT 
BEQ 


18: 


FATS WILL LOOP BE 
MOV aX aL 


CLOISK: 
MOV 


1$: 


es: 
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PC) JHPUTREG 


3$ 
#DVA, a8CSl 


1 
R1, d#SBDADR 
26" 


3$ 
R1, d#SBDADR 
26 









“SBTTL LOCAL TRAPS 


#SWO9, d@#SWR 
@#LAD, (SP) 


OF THE ABOVE 


CLEAD DISK ROUTINE 


D#RHCS1, RI 
J#RHCS2, Re 
ae #RHDS I. R3 
QaRHERI, RY 
#CLR, dRe 

aauNtT, are 


-SBTTL CHECK DISK STATUS ROUTINE 


; THIS CHECKS DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 
SAND CHECKS MEDIUM ON LINE (MOL), 


CHECKT: MOV 
SUB 


(SP), d8PCISR 
#4, J#PCISR 


a X: AND SCOP1 PROVIDED THERE IS NO “NEWTST” 


E CONTROL AND STATUS! 
OL AND STATUSe 
SK STATUS ye bee 


REINSTATE NTT NO. 
;CLEAR FUNCTION BITS 


DEVICE PRESENT (DPR), 
‘eer PC OF JSR+4 


sSAVE REGISTERS 
eb VAIRDY, aecsl iRHCSI ONY HAVE DEVICE AVAILABLE 


DEVICE READY (DRY) IN RHDS1 


GOOD 
: BAD SO Test DEVICE AVAILABLE 
;BRANCH IF DVA THERE 
S_OF BAD weateTe (RHCS1) 

SRHCSI DID NOT HA 
SAVAILABLE RIGHT A 
3$ ;BRANCH TO NEXT COMPARE 
#RDY,  a4#CSl ;TEST ee 

F ROY THERE BRANCH 
R1, J#SBDADR ‘ ADDRESS OF BAD REGISTER (RHCS1) 
ie 


;BRANCH T MPARE 
ADDRESS OF BAD REGISTER (RHCS1) 
sRHCS1 HAD SOME BITS OTHER 










ee ee 
; 
' 
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3$: 


4§: 
S$: 


6S: 
7$: 


; THIS CHECKS DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 
SAND CHECKS MEDIUM ON LINE (MOL), 


CHECKE: MOV 
SUB 


1S: 


2s: 


38: 


4$: 


ee ee a 


RTS 


BIT 


24D 
VEPROG (SP 


SOPRIDRY’ (84; R 


7$ 
#DPR, @#DS1 
S$ 


R3, J#SBDADR 
78 

we d#0S1 
R3, J#SBDADR 
2b 

7$ 

R3, J#SBDADR 
26 

PC 


(SP), J#PCISR 
#4, J&PCISR 
PC’ JHPUTREG 
#ROY, JHCSI 


1$ 
R1,d#S$BDADR 
eb 


4$ 
#DVA,ad#CS1 
es 

Ri, d#SBDADR 
26 

4$ 

SAY, BeOS! 
(cia, 


4 
SLPR, 0051 
ap SUSE 
PC 


ET 
‘ALL feos! BITS SHOULD BE 0 


V AND PR 
pn SHOULD HAVE 
H IF GOOD 
‘TEST DRIVE PRESENT 
iif MOL THERE SO BRANCH 
OF BAD olin (RHDS1) 


ae ie Mitte NCRHOSL) 


foe OOF BAD REGISTER (RHDS1) 
HOS1 HAS ae Boa QiHER 


me OTHER Bite SCULB. te 0 
sRETURN TO TEST NO. 


DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 
seer PC OF JSR+4 
P OF cTens 

RHCS1 gg HAVE DEVICE AVAILABLE 
8 NCH IF 2000 
:FAILING sy 
Does 01 HAVE BVA, RDY 
jRUCSI TOD HAVE DEVICE AVAILABLE 


: BRANCH 
iB RHDS1 SHOULD HAVE os. DRY 
CH IF THERE 


;FAILING REGISTER RHDS1 
fre DOES NOT HAVE DPR,DRY 


Ra ae DPR, DRY 


NG REGISTER RHDS1 
OOS NOT HAVE DPR, ORY 
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DERPSB.Pil CHECK DISK STATUS ROUTINE 
9996 
9937 
99398 
3339 
10000 
10001 ; 
ik : 
10004 o40420 1 TIMCNT: 1 
10005 O40422 QO10046 WAIT.T 
100068 O40424 016500 0002 
10007 040430 010037 1204 
10008 0434 162737 oO00002 oc1204 
10009 O40442 012037 001176 
10010 0446 012037 001200 
10011 O404S2 01006 0002 
1001e O456 O01 
10013 O40460 013737 0420 001202 
-$0014% O40465 77 901200 140502 1S: 
29015 040474 001021 
10016 O40476 7 001202 
10917 0S02 1371 
10018 0S04 013737 o40420 O0le02 
10019 O40512 3777 O01e00 14O4SE 3S: 
10020 0520 001007 
10021 005337 001202 
10022 040526 001371 
10023 040530 017737 140442 001126 
10024 940536 104016 
10025 O46540 O0000e es: 
10026 ; 
10027 ‘ 
10028 : 
10029 : 
10030 : 
10031 . 
10032 . 
10033 3X$: 
10034 : 
10035 . 
10036 
10037 
10038 
10039 
10049 
10041 
10042 
10043 
10044 
10045 
10046 
10047 
10048 o40S42 SAVER: 
10049 040542 ~010146 
10050 O40544 010246 
10051 O40546 O10346 


WAIT LOOP 
ine Loo? oo ONE COUNT _ ~ 


S.15 MICROSEC WITH BIPOLAR MEMORY (MIN) 
alta ONE COUN 11.86 MICROSEC WITH CORE (MIN) 
WITH H GORE OBR Is INDICATED AFTER ABOUT 650 MILLISEC (MIN) 
WAITING COUNT 
: hove RO, -(SP) ; SAVE RO 
MOV 2(5P).RO *GET ADRESS OF REG. ADDERSS 
MOV RO, aeSTMP3 sHAT PC+2 IN sr Pa 


YPEQUT 
SALT REGISTER ADDRESS 


MOVs (RO) 4° DHSTMPL T ON 
HRESTORE RETURN ON STACK 


MOV RO 2(SP) 


MOV (SP)+ 

MOV set IntnT. a P2 TEMPORARY COUNT 
BIT JeSTMP1, so teen s1S RequtReD BIT THERE? 
BNE 2g :BRANCH IF YES 

DEC aaSTMP2 : 

BNE 1$ BRANCH IF NOT TIME UP 
MOV Se rImenT aasTMP2” - TEMPORARY COUNT 
BIT JeSTMP1,aSTMPO ;IS REQUIRED BIT THERE? 
BNE 2g i BRAN CH IF YES 

DEC aeSTMPe : COUN 

BNE 3 ‘BRANCH IF NOT TIME UP 
MOV JSTMPO, J&SBDDAT sREGISTER CONTENTS 

ERROR 16 WAITED ON BIT FAILED TO SET 


CALL FOR THE ABOVE UAITLOoe IS 


MOV dA, JRXS ;A_CONTAINS REGISTER ADDRESS 
- - HENCE X$ WILL HAVE ABSOLUTE REG. ADR. 


;ABSOLUTE REG. ADDRESS UNDER WAIT 
-WORD O BIT WAITED FOR 
: CONTINUE 


STHIS IS A SUBROUTINE TO SAVE REGISTERS 
IN THE REGISTER TABLE TO ANY LOCATION 
*SBTTL SAVE ROUTINE 

;THE CALL IS 

-JER RO, a#SAVER 

thon 

‘NUMBER OF WORDS SAVED 
MOV R1,-(SP) 


MOV Re. =(SP) 
MOV —«R3, = (SP) 


;;PUSH RI ON STACK 
:;PUSH Re ON STACK 
:;PUSH R3 ON STACK 
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DERPSS. Pi! SAVE ROUTINE , 
19088 OMOSSD 912001 MoV (RO)+,R1 FROM 
i ieee MOV (RO) RS :T0 
13033 Busees 850 MOV (RO)4 RS : NUMBER 
19055 3122 18: MOV  B(R1)$,(R2)* SAVE REGISTER :CONTENTS 
1gse OyGs DEC F : EOUNT 
: 13 BNE | ! BRANCH IF NOT DONE 
15058 4 912603 MOV «(SP )4, 83 :sPOP STACK INTO Ra 
10059 O40S65 O1zeds MOV (SP}4° Re tIBOP STACK INTO Re 
10060 O4057D 012601 may (SP)4°RI ::POP STACK INTO Ri 
1B08i O40s72 Sfoe00 ay RD 
1006e 
10063 
15084 
10065 
10086 ~SBTTL WRITE CHECK ROUTINE 
10087 THIS IS A SUBROUTINE TO DO HITE CHECK HEADER AND DATA 
cape SCYLINDER 0, TRACK 1, SECTOR 1, KEYS O 
ipeoe 01 1 12 WRCHHD: ire “aewtoe een et piskess Hoe OUT 16 BIT WORDS 
1328 ris5a> Béooor BaaGHe MOVe ost aagteorRe: — ifRACKoT 
10073 040619 112737 900001 O44414 Hove #1 24SECO OTR (SSECTORS1 
ioe pape 28 aes éLR aeeye KE yao 
| 10078 O40626 012767 O00044 002626 MOV 836.,DAWORD = :NO OF DATA WORDS 
| 10077 OM0634 O0S037 O444e2 CLR sax ‘THIS IS A READ OPERATION 
| 10078 OHO6HO Go¥Sa7 ON1zN2 JSR  —- RS, BeCRC 'G0 TO CALCULATE CRC 
gs Ouned4 §Q44412 CYL 
| 10080 GNOeHE ONe3I2 WRC 
| =pe8 : THESE ARE REGULAR SETUPS 
ico O40650 004737 o40064 JSR PC, @eCLDISK — ; SET UP GENERAL REGISTERS 
| TB08E D4DESY 012777 177730 140740 MOV + ONO OSTA HORDE 4 HIEADER LORDS 
| 19087 012777 003126 140734 Moy SRETATS BRA iz6 DATA ADDRESS OF READ BUFFER 
| 10088 Bioero 11s746 DOSOOL nove al, sent ; SECTOR=1 
| 10089 040574 112766 000001 o90001 MOVE 415) :TRACK=1 IN UPPER BYTE 
| 19080 O4o702 012677 140726 MOV IRHDST s TRACKS, SECTOR=1 IN RHDST 
| 10091 40706 Ole777 014000 140724 MOV (Sb), pa40s ORHOF” 516 BIT’ WORDS 
| 10092 se CORRECTION INHIBIT BECAUSE 
| 19093 PECC LOGIC IS NOT CHECKED YET 
‘19084 14 140722 CLR BRHCA :CYLINDER=O 
| 70065 604737 40120 JSR PC, aBCHECKT «CHECK FOR DVA,RDY, MOL, DPR, DRY 
| 109% 013711 002034 MOV BSWRCHDT, aR1 swRTTE CHECK HEADER AND DAtA=S2 
| 10098 040730 004737 o44202 JSR PC, BBCOMHD {WRITE C Ak HEADER AND DATA 
| 40038 ‘SAME AS READ HEADER AND DATA 
i 
| $10) owo734 900207 ris mye SRETURN TO WRITE CHECK TEST 
10103 ee A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 
{Bios Hae fest DATA RBUEFER REDRESS 
| 10106 he HAS ADDRESS OF RETURN ON ERROR TO PRINT HEADER 
| 40107 :$TMP] HAS ADDRESS OF RETURN ON ERROR TO PRINT DATA 
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DERPSS.Pil COMPARE ROUTINE 


3 pe 909039 o44472 Muy #32. ,28DAWORG — ;NO _OF ATA WORDS 


10164 O411 
1 165 il CLR ‘THIS IS A READ OPERATION 
10167 ovis D0453? 041242 : SR RS, ICRC :G0 TO CALCULATE CRC 
1oigs Mts Beats ; fickic 

rf 
10121 ; THESE ARE REGULAR SETUPS 
Biss 041154 9004737 o40064 JSR PC, J8CLDISK ;SET UP GENERAL REGISTERS 
19178 ?AND CLEAR DISK REGISTERS 
190176 O41160 012777 177740 140434 MOV #-32. . IRHWC 36 DATA WORDS 4 HEADER WORDS 
10177 O41166 012777 603126 140430 MOV ‘SREINTO,QRHBA STARTING ADDRESS OF READ BUFFER 
10178 O41174 112746 00001 MOVB 81, -(SP :SECTOR=1 
10178 041200 112766 000001 o00001 MOVS  81/1(5P) :TRACK=1 IN UPPER 
10180 O41206 012677 140422 MOV (SP)+. SRHDST — ;TRACK=1, SECTOR=1 IN RHDST 
10181 O4l2l2 612777 O14000 140420 MOV 8FMT22!ECI, RHOF °16 BIT WORDS 
10182 sECC CORRECTION INHIBIT BECAUSE 
10183 *ECC LOGIC IS NOT CHECKED YET 
10184 041220 onse7? 140416 CLR JRHCA *CYLINDER=O 
1018S O41224 904737 040120 JSR PC, JSCHECKT *CHECK FOR DVA,RDY,MOL, DPR, DRY 
10186 041230 013711 Oc203e MOV QSWRCHEK,@R1 WRITE CHECK DATA=$0 INTO RHCS1 
10187 041234 004727 044302 JSR PC, J8COMAD *WRITE CHECK HEADER AND DATA 
10188 ;SAME AS READ HEADER AND DATA 
10150 041240 900207 RTS PC ;RETURN TO WRITE CHECK TEST 
10192 .SBTTL CRC GENERATION ROUTINE 
10193 ;THIS IS A SUBROUTINE TO CALCULATE CRC FOR THE FOUR 
10194 *HEADER WORDS AND STORE THEN IN “WCRC™ AND “GCRC™ 
10195 *RI = REGISTER FOR CRC, INCREMENTED CRC VALUE IS HERE 
isis Re > Tite ee it POSITION Fe Te OUTPUT BIT VALUE 8 
10198 ?R4 = THIS HAS BIT poet tion 18 VALUE E 
10199 -STMPO - NUMBER OF WORDS 
12200 -$TMP2 - NUMBER OF BITS PER WORD = 16 
10201 :STMP3 - TEMPORARY REG. 
10202 *STMP4 - TEMPORARY REG TO TRANSFER CARRY 
10203 *STMPS - THIS HAS DATA BIT VALUE CD 
ee :FETCH DATA BIT D 
10206 ‘B= D XOR 16 
10207 *C = B XOR 2 
10208 if = B XOR I 
10209 *ROTATE RIGHT ONE POSITION 
10210 *B GOES TO POSITION 1 
10211 2 GOES 10 POSITION 3 
dele *E GOES TO PO iT ON 16 
1921 *REPET 64 TIME 
10214 *CALL JSR RS, I8CRC 
10215 +X sFIRST LOCATION AT 
ideig rY *PUT CRC IN WCRC FOR READ GCRC FOR WRITE 
10218 o4124e2 CRC: 
10219 O4le42 O10046 MOV RO, -(SP) ;;PUSH RO ON STACK 
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peApee Pit CRC SENERAY! it Satine 
10220 O41 12500 MOV {R5)+ RO :GET -POINTER i aft NO. 
1 Pat 10146 MOV 1,-(P) : sPUSH 
} Sie 1024s Moy B+ ={25} +;PUSH 83 
idee 1 1346 MOV R3,-(5P) ; PUSH Ra ON STACK 
insss OM ; 1 EE tet AT EBR LGRCING LOCATION 
Gee l Bpeo? 001210 CLR aaSTMPS 
l a 012737 000004 001176 MOV #4. 28S TMPO WORD COUN 
10228 1e7e 012037 901204 163: MOV (RO)+ aaSTMP3 ; TEMPORARY T WoRD STORAGE 
dees O41 b12767 p0920 137676 MOV 816. $TMP2 ‘BIT COUN 
10230 041304 013737 O01 001206 MOV ausites, DeSTMPY + NPORARY WORD STORAGE 
10231 O41312 006037 001204 15$: ROR aeSTMP3. GET LSB INTO “C™ 
dea 1316 001210 ROR aes TMPS :GET ABOVE "C™_INTO STMPS 
102 1322 70 000601 BIT 88170,R1 21S POSITION 15 
10234 041326 001 BEQ l ‘BRANCH IF POSITION 16 LOW 
10235 O41 330 012703 100000 HOV aBIT1S, R3 :GET POSITION 16 
i553 bat ase pend 1$: CLR R3 :GET POSITION 16 
10238 041340 063703 901210 2s: ADD JsSTMPS,R3 :XOR POSITION 16 WITH D 
1 370 oie 
18533 041344 032701 o40000 BIT #B1T14,R1 IS POSITION 2 HIGH 
l 1 4 BEQ 3$ :BR H if POSITION 2 LOW 
i i : 100000 HOV agITIS, Re :GET POSITION 
10244 041360 o0sod2 3S: CLR Re ;GET POSITION 2 
1024s 041362 060302 4g: ADD R3,Re2 :xOR 8 yaitH POSITION 2 
ites 041364 032701 cocoo2 BIT 881T1,R1 :IS POSITION 15 HI 
10248 941370 001403 BEQ c$ :BRANCH IF POSITION 15 LOW 
10249 041372 6012704 100000 MOV #BIT15,R4 GET POSITION 15S 
ipees bat ao8 rea 5$ Ere 3 GET POSITION 15 

> ; 
10650 balaoe BEB SM 6$ ADD R3,R4 iXOR POSITION 15 WITH B 
10254 O41404 906037 001206 ROR daSTMPY GET LSB FNTO “co 
10255 041410 1 Rl :GET ABOVE C INTO RI 
10256 O414l2 005703 TST R3 TEST B 
10257 O41414 io0sc3 BMI 7$ “BRANCH IF B=1 
10258 O41416 1 100000 BIC #BIT15,Ri *SET B IN POSITION 1 
102539 941422 So04de BR 10$ 
10260 041424 052701 100000 7$ BIS #BITIS,R1 ;SET B IN POSITION 1 
1Sebl 14 10 TST Re TEST C 
! 14 BMI 11S ‘BRANCH IF C=1 
10263 O43 042701 o20000 BIC #91713, Rl *GET C IN POSITION 3 
ipePe Diiaie Obert 020000 11$ Bis #81T13,R1 :GET C_IN POSITION 3 
10266 O41446 12$ TST R4 - TEST 
1 BAISee HM coco A OE a Soe 
10276 ise 05270 1 13 Bs ihr RI ;GET E_IN POSITION 16 
10271 Bide OBs37 Boreas 14§ Bee aSTMP2 sett EouNT >. 
10272 O414 1310 BNE og * BRANCH tT 16 NOT DONE me 
10273 041472 005337 001176 DE See TMPO ; WORD COUNTE 
10274 41476 001275 BNE 16s “BRANCH IF 4 NOT DONE 
10275 041 010135 MOV 1,a(RS)+ *PUT CRC WHERE DESIRED 
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10276 O41502 012604 MOV (SP)+,R4 s;POP STACK INTO RY 
108 O41508 12603 MOV (SP)+'R3 :POP STACK INTO R2 
10278 041506 Ole602 MOV (SP)+>R2 ::POP STACK INTO Re 
1 O4i519 Oie601 MOV (SP)+/RI :POP STACK INTO Ri 
l 1£12 012600 MOV (SP)+°RO :POP STACK INTO RO 
10281 041514 00205 RTS RS 
1588 
1pSee 
10286 sTHIS IS A SUBROUTINE TO SET UP THE SIMULATOR DISK FOR 
10287 :CYLINDER O (16 BITS PER WORD) 
10288 :TRACK I, SECTOR 1 
10289 *KEY] 1 
10290 *KEYe 1 
10291 “CRC THROUGH THE JSR RS, d#CRC 
iSe3 256 WORDS OF 177400 
isa sCALL JSR PC, a8SETDSK 
10295 
10636 Ov1516 SETDSK: 
1 1516 O1004% MOV RO, -(SP ;;PUSH RO ON STACK 
1p533 puiese | pibeue Mov Re’ =eep) tS BUEH Re ON STACK 
ibsaa pureed pisses 177400 #1 tAATA IN THE DISK 
10301 041530 012701 o00400 MOV #256. Ri : COUNTER 
10302 041534 012702 046330 MOV #OISK’ Re “START OF SIMULATOR DISK 
10303 Ovi5HO 010022 1S: MOV RO, (R2)+ >MOVE_IN DATA 
10304 941542 005301 DEC Ri COUNT FOR 256 
10305 041544 001375 BNE 1$ “BRANCH IF 256 NOT COMPLETE 
19306 O41546 012701 cocde! MOV #17. ,RI ?2 ECC WORDS, 1 DATA GAP 
10307 *14 TOLERANCE GAP 
10308 o415S2 oosoz2 2s CLR (R2)+ CLEAR ECC,DATA GAP AND 
10309 : TOLERANCE GAP 
10310 oO41554 005301 DEC RI : COUNT 
1311 041556 001375 BNE 2s ‘BRANCH IF NOT COMPLETE 
aa sNOW SET UP FOR DISKLESS USE 
10315 041560 012737 010000 o44412 MOV SFMT22,d8CYL  ; CYLINDER O (16 BIT WORDS) 
10318 041566 11273? 000001 o444i5 MOVE &#1,a8SECOTR+1  ;TRACK=! 
| 10317 O41 11 900001 o44414 MOVB 81, a8SECOTR *SECTOR=1 
| 10318 O41 Ole? 37 900001 O44416 MOV #1, a8KEY1 KEY1= 
10318 161 ot z 090001 o444 MOV #1’ aBKEY2 *KE 
1 1616 016737 136556 044472 MOV 256. ,a8 =NO 
10321 041624 004537 O41242 JSR RS, JRCRC G0 TO CALCULATE CRC 
1g3ee 1630 ouaie CYL “FIRST CRC WORD 
1 1 1 WCRC “PUT CALCULATED CRC 
1c3e4 O16 34 Oiebte MOV (SP)+,R2 POP STACK INTO Re 
0325 041636 012601 MOV (SP)+RI ::POP STACK INTO RI 
10326 O41640 012600 MOV (5P)+/RO :POP STACK INTO RO 
10327 041642 000207 RTS PC 
| 10329 sTHIS IS A SUBROUTINE TO CHECK HEADER COMPARE ERROR 
| 10330 ;(BIT #7) AND CRC ERROR (BIT #8) 
_ 10331 CALL J #HCC 
| 





eh A ST 


040736 


Pee Ree RSS cae 


003126 
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10338 ; COM haat AND DATA 

ibs ; ¢ *CYLINDE 

1 ; S i SECTOR 

i : NN tu 

rack oe . 8 Lor SOPTER START 

10339 : X t LSWRITE DATA O=READ 

10399 : H *H=1 HEADER CHECK, H=0 CRC CHECK 

10342 O41644 010037 o02000 HCCRCE: MOV RO, J#PCISR ;SAVE PC OF JSR+4 

10343 O¥1650 1be73? poogo8 902000 SUB #4; J8PCISR : OF JSR 

1344 1656 7 4 JSR PC, a#CLDISK :INIT AND SETUP GENERAL REG. 

10346 : 

10347 041662 OO4767 176232 JSR PC, CHECKT ;CHECK DVA, ROY, DPR, DRY 

1ps48 ou 1 001210 MOV (RO) JS THPS ;SAVE COMMAND 

10350 16 12011 MOV (RO)4+, aR ; COMMAND 

10351 041674 012077 137742 MOV (RO}+ ORHCA “CYLI 

tb3es3 Suioae tdeooB TEe eel eT RO 

ip3ee paiate ae MOE ee s TRACK RO 
Baise vee 30 137716 MOV (823%, aRHDST : TRACK OR 

041716 012077 137700 MOV (RO)+, JRHWC sD. OF DATA. WORDS R HEADE 
041722 012077 137676 MOV (RO)+, JRHBA *STARTING ADDRESS OF BUFFER 
941726 012037 O44422 MOV (RO) +) a8X ix READ HEADER AND DATA 
041732 012777 O14000 137700 MOV sFMT22!ECI, QRHOF’ ie d bite WORD 
sECC CORRECTION INHIBIT 

041740 001772 CLR #ERFLGS :CLEAR ERROR FLAG 
041744 004737 044302 JSR C, a8COMHD * COMMAND 


ifhon Tie = SOHO FO ROUTINE. THAT NER MEANS cio eee 


;FIRST SYNC 


HEADER HEADER 
a BIN eyTE have Ape BY AND cnt WERE CORRECTLY 


18 


Fey 
BNE 


auth “te 
aux 


;NO_ DATA D 
sna INTO BUFFER HAS BEEN 
WRFROM BUFFER HAS BEEN 


15h RO, d8COMPAR 
WRF ROM 
REINTO 


: HEADER ad aarurReD. TO 3 CHECKED. 


RNY ERRORS ELREADY THERE 
is ie Tig SFE, BRANCH 


;NOM THE READ BUFFER WILL BE CHECKED 


Y READ AS WRITTEN 


FILLED WITH O 
FILLED WITH EXPECTED DATA 


3 CHECK 
TEST BUFF ER 





b= 0 B= B2  ~ 6-2 & < b= bo bo b= 0 b+ b= 9 -= B29 B= = BB fh = P-2 bh §- 2 & © h-0 F-2 f= & = > ~ & = 9-H — P= HP = BP 


Fars gRana wan OUSe ONTUNON ES Sansone CoB IRN ZOReas wRAReee 


22 
& 


eB b+ bb OB = b= 0 BB 


penn lad — 


042020 900414 
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HECKED 


TEN 
FILLED WITH EXPECTED DATA 
ITH_ 177400 

WITH 1252Se 


ses a8SBDDAT TEST DATA 
sONLY peRoeR. COMPARE BIT? 


7$ BRANCH H IF GOOD 
D#RHERL Q8REGADR REGISTER ADDRESS RHER! 
HCE, J#SGDDAT A 

tHEADER ONLY HCE SHOULD 
;BE SET 


DRHER1, IUSBODAT ; TEST DATA 
#OCK! HCE r8HSB00RT ANLY HEADER COMPARE BIT? 










s4 HEADER 252 DATA 

"RETURN POINT FOR ERROR HEADER 
j RETURN POINT FOR ERROR pata 

: oF Boor _— 


NEX 
;RETURN TO te SUBROUTINE 
3 WORD NO 1 4 ARE 


wes AND HENCE 
$ SHCA Be BE READ "= WRITTEN ON 


aR ete Oe 


RETURN #6 CONPARTSON 
; JUMP OUT 


re aR 


‘RETURN RROR HEADER 
RROR DATA 
RETURN POINT FOR GOOD COMPARISON 
sREAD NEXT ERROR 
sRE TURN TQ te 3 SUBROUTINE 


tHORDS THE SHOULD NOT 


sav an CHANGED BY THE 
RETURN TO COMPARISON SUBROUTINE 
1S THIS e ae ON HCE CHECK? 


iTS THIS A READ COMMAND 
H IF YES 














8008 Bate 
AFTER AN ERROR ON THE 


;DCK IS SET BECAUSE ECC IS NOT READ 
sBRANCH IF GOOD 
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CRC GENERATION 


042142 013737 001632 
O4e1S0 012737 100200 
104027 


OCO441 
else 022737 000072 


fay re ue 


sEthieeRe eanunnnnNonsesaas 


222 


= & «= b= 0-2 b= § — 6-2 & = b= & 2 bb 0 = FH — Db = B— P= = b= 6 0+ b= & 8-2 B= = hOB 


PEPPELILE 
RRIGV—-BIsarIiaadzZgs—3 


aeaee 


é 
? 
8 


S SOs & 
e 


22 

See 
x 
8 
& 


eGR REERERS 


3 
e 


Bisei6 137 001632 037534 
0004 
042224 


gree) 


OUTINE 


037534 
001124 


001210 
001126 
001126 
001124 
001126 
001126 


001124 
037534 


137330 


Hee 
wos 


3 


REGS 


042370 


137272 
137244 
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6$: 


12S: 


73: 


MIDDLE: 


MID: 








MOV DBRHERL, DSREGADR ;REGISTER ADDRESS RHERI 
MOV #OCK!HCE, J#SGDDAT “GOOD DATA 
27 sAFTER AN ERROR ON THE 
a % HEADER ONLY HCE SHOULD 
CMP 872, JeSTMPS 1S THIS A READ COMMAND? 
SEQ ; BRANCH F A READ 
MOV DRHERL, I#SBODAT 3 TEST DATA 
BHCRC,a#SBDDAT ONLY CRC ERROR SHOULD BE THERE 
MOV DERHERL, IWREGADR ;REG. ADDR = RHERI 


SHCRC, J#SGDDAT ; 000 DATA 
27 :AFT RA ac, ERROR ONLY CRC 


OR 7$ ; BRANCH OUT 
MOV DRHER1, I#SBDDAT ; TEST DATA 


CMP #DCK!HCRC, J#SBDDAT ; HCRC DCK SHOULD BE SET 
;DCK IS SET BECAUSE ECC IS NOT READ 


BEQ 7$ BRANCH IF GOOD 
MOV #DCK'HCRC, J8SGDDAT:GOOD DATA 
MOV JBRHER], JKREGADR; FAILING REGISTER RHERI 
ERROR 27 "AFTER A CRC ERROR ON A READ 
*DCK AND HCRC SHOULD BE SET 
DCK IS SET BECAUSE ECC IS NOT READ 
RTS RO *RETURN TO MAIN TEST 


;THIS IS A SUBROUTINE TO LEAVE AT THE MIDDLE OF 
TA AND 


=A WRITE HEADER AND DATA C 
IT TRYS TO GET SECTOR 10, TRACK 0, CYLINDER O 
sBUT COMES OUT AFTER ONE SECTOR 
THE COMMAND OS JSR PC, daMIDDLE 
sBAI IS SET 
reyes} ual AP Stee 
MOV JSWRIFOR, IRHCS1 RITE te AND DATA=62 
#-10. , IRHWC 210 
NOY SABPRON @RHBA | Ac “ARDRESS=RFRON 
SO a ce 
aby aprt gre +P ORNA 1 Brt 
MC NI OER occ TO 1 S0 THAT 
: 3 CAN at or THE 
MIDDLE OF AN OPERATION 


*MIDDLE 

*LOOKING FOR SECTOR 10 
MOV #DMD, SRHMR ‘SET DI T 

BIS #G0, ORHCS1 G0 TO RHCSI WITH 62 
JSR R1, JUSEARCH 

‘ SECTOR 

MOV (SP)+,R1 *:POP STACK INTO RL 
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1 374 MOV (SP}+,RO0 ;;POP STACK INTO RO 

1 ER Ee mf 

10503 
10504 

i itt ROUTINE WILL CHANG CTHE CURRENT. CYL YLINDER REGISTER 

ies Bc Sogou Ske ag 

ie WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUE 
imi6 ALL IS 

1CS1 5 RO, d#MAKECYL 

iti ;XC ;DESIRED VALUE OF CURRENT CYLINDER 

10514 

10515 42400 MAKECYL: 

iis 04 Miteitig MOV RS,-(SP) ;,PUSH RS ON STACK 

10517 04 10037 002000 MOV RO, d#PCJSR JSR+4 

10518 O4e408 162737 900004 002000 SUB #4, J#PCISR Sh VE PC OF JSR 

10519 O4e414 012005 MOV (RO)+,R5 GETTING READY TO FILL DESIRED CYLINDER 
10Se0 O4e416 010577 137220 MOV RS, aRHCA _ FILL DESIRED CYLINDER REGISTE 

ites} CLR T ; MAKE yea SECTOR TRACK IS NOT ILLEGAL 
1 1 137174 MOV DBSEECOM, DRHCS1 ;FILL SEEK C 

10523 O4e434 012777 000001 137206 MOV #DMD, JRHAR ;SET_ DIAGNOSTIC MODE 

10524 O4e244e 05e777 000001 137160 BIS #G0, JRHCS1 ;G0 TO SEEK 
10SeS O4e450 000240 NOP . ;ALLOW TIME FOR SEEK TO HANG UP 
ies 04, 000240 ;ALLOW TIME FOR SEEK TO HANG UP 

1 04, NOP ALLOW TINE FOR SEEK TO HANG UP 

10528 9% 000240 ALLOW TIME FOR SEEK TO HAKS UP 

10Se9 04 004737 O40064 JSR PC, d&CLDISK ;GIVE INIT 

10530 O424%64 017737 137176 001126 MOV DRACC, d#SBDDAT ;TEST DATA 

10531 O4e472 020537 001126 CMP RS, a8$B00A ;COMPARE CURRENT CYLINDER 

10S3e O4e476 001406 BEG 1$ ;BRANCH IF GOOD 

10533 042500 010537 001124 MOV RS, J#SGDDAT ;GO0D VALUE OF 

10534 013737 001666 037534 MOV J#RHCC, JBREGADR sFAILING ang pla 

1053S O4eSle 104030 ERROR 30 ;CURRENT CYLINDER DOES NOT MATCH RESIFED CYLINDER 
10536 REGISTER AFTER A SEEK AND AN INIT 

10537 O42514 1$: 

10538 042514 pi eehs MOV (SP)+,R5 ;;POP STACK INTO RS 

10539 042516 00 RTS RO 

ie 

teat -SBTTL ECC GENERARION AND COMPARISON ROUTINE 

10544 

10S4S 

10546 

10547 ;THIS SUBROUTINE GENERATES AND TESTS ECC 

ig ;CALL “JSR PC, ECTEST 

10549 

10550 

10551 

10552 f 

10553 

10554 100000 PIEL  =100000 . 

10555 040000 PIE2 =40000 


OF pee etn ae re eed 








a 





au 


eeeeee Ree 


a 
~ 


AR 


RARRARRARA 
BSVRRLSOHLS 


Seep ReuRee 
e 


Pe hs Bs bh b= Fo hoe hb be hae be bs fh Bb hs bm ht po pn de he a d-op shop + pepo pe 





Fe 
=-2 
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ECC GENERARION AND COMPARISON ROUTINE 


PIE3 =20000 
PIEY =10000 
PIES =4000 
PIE6 =2000 
PIE? =1000 
PIES =400 
PIES =200 
PIE1IO =100 
piel s 240 
PIE! =20 
PIE13 =10 
PIEIY = 
PIEIS = 
PteiS = 
PIE] =100000 
PIEIS | =20000 
PIE2O sid 
PIE2el =4000 
PIE22 =2000 
PIE23 =1000 
PIE24Y =400 
PIE2S = 
PIECR = 
PIEC7 =40 
PIECB = 
PIEeS =10 
PIE3O. = 
PIE31 = 
PIE3S2 = 
ECDATA: 0 
GECC1: O 
GECCe: O 
TSECCG: O 
NCODE: 38859. 
NCOUNT 
POSIT 

4129. 
DATENV: 0 
ZCODE: O 
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;DATA BIT FOR ECC 
IF ALL ONES THEN CURRENT BIT IS A ONE 
IF ZERO THEN CURRENT BIT IS A ZERO 


LOH ORDER ECC WORD TO BE GENERATED HERE 


— ORDER ECC WORD TO BE GENERATED HERE 


;IF =177777 GENERATE AND TEST ECC FOR THIS BIT 
IF =0 DO NOT GENERATE AND TEST ECC FOR THIS BIT 


N-CODE WORD 
. TEMPORARY N CODE 
sPOSIT 


Oo 


MPARES ARE 


EADING ZEROS $418. FOR TYPE OUT 
HIS IS SHUT OFF WHEN POSITION COUNTER 
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;MAX COUNT IS 38859 
| 
{_ 


; TEMPORARY HARD ERROR COUNT 


SPPEORE 


OnNI@WUI£Uwt 
2 
fu 
nee 
z 


ECTEST: 
M srt RO ON STACK 
fie Rl ON N ie 


ae 


& 
a 
Se 
BS 


ou2s22 
DoS7a? ONEse0 st SaecbaTA FEE IR, arr 0 oe 


042606 001406 BEQ 2s ‘BRANCH IF CURRENT DATA D=0 
sIF CARRY IS NOT ZERO THEN D=1 
* INVERT X32 TO GIVE RO 
: MOV R1,R3 
N42612 052703 177776 BIS #tCPIE32,R3 


Duse20 016300 RV RS, RO 
0404 BR 3$ 


saeeR 
: 
s 
oOo 
= 
B 


FRRKK 


Ce a b+ b= 0 b= b= b— b+ bb Fh -  b  -2  8—2 b p — p= 
age one ot 
FHL 


RY 
sIF CARRY IS ZERO THEN D=0 

Of *X32 BECOMES RO 
10647 oy g10103 2S: hov R1,R3 
0648 2703 177776 BIC #tCPIE32,R3 
10649 O04 016300 MOV R3, RO 
10651 042634 000241 3S: CLC 
10652 ROR RO 
10653 ROR RO 
10654 O4°e642 005700 TST RO 
10655 001462 BEQ 10$ sBRANCH IF RO=0 
10656 INVERT Xe 
tts 042646 O01 MOV R2,R3 
10659 0426 eae 137777 BIS #fCPIE2,R3 
10660 042654 005103 COM R 
10661 S& 010337 o4es46 MOV R3, J#P3 
10662 006237 O4e546 ASR aaP3 
10663 
10664 sINVERT X11 
10 35 
* 6b 
10667 O42666 010203 MOV R2,R3 








MAINDEC- !1-DERPS-8 MACY11 27(722) 


ECC GENERARION AND COMPARISON ROUTINE 
703 177737 
098103 
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ae 
SRuRRE RE SB OB ERA ERRER IG aoe see : 
a! 


s 


decenesns 


Sssssss888833 


bb +0 = b+ b= b= b= = Ob b= = 6 = Bb 0 bb; 2 a = bb bb he = = Fb Fb 0 Fb b= be 6-2 6 8 be = = pp 
wD ou Ewe 
GI -OWONCOU CWO 


S338 






















Bis #tCPIE11,R3 
COM 


MOV R3, deP12 
ASR aePle 


; INVERT X21 


MOV R1,R3 
BIS #tCPIE21,R3 
COM R3 


MOV - R3, aeP22 ‘ =~ : 
ASR = auPee a: 
sINVERT X23 
MOV 


R1,R3 
AIS #tCPIE23,R3 


: COM 
MOV R3, JaP24 
ASR aeP24 


P24 
SARE KNOWN THE ROTAT 
;THESE BITS JAMED IN 


E DONE AND 


ROR R2 

ROR RI 

BIS 3, RO 

BIS dP 12, RO 

BIC #PIEL'PIE3!PIEL2,R2 
BIS RO, Re 

CLR RO 

BIS a#P22,RO 

BIS a#P24:RO 

BIC SPIE?! PIECY, RL 
BIS RO.R1 

BR 12$ 


THE PROGRAM COMES HERE IF RO=0 
i30 oe we RO GETS PUT INTO POSITION 1 


Rl 
BIC PI 
MOV Ri 1,9 tise - SAVE ECC 
MOV Ro’ aNGECCe SAVE ECC 
TST Reree SECCG 1S HARDWARE TO BE CHECKED 
IF =177777? TEST HAROWARE 
3 ‘TF = 0 DO NOT TEST HARDWARE 
BEG 14S ‘BRANCH IF HARDWARE NOT TO BE CHECKED 


BOi 
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~ 
f 
. 


27 (732) 


AND 





ces 


MESHSRSEN Sa: 


Ce Re Det hee ht Lee he ee ee Let oe hae Le | 


: 
: 
: 
s 
: 
: 


a4 
38 
a 


z 
z of 
2 a 
“wh ld fod - a 
oe BR FB Zoe 
US Mn Fw me 
4, 22, 8 es figs 
Hatihg® the mi 5S £3, tie 
ototoncees Ha BS Bob 
SuSeSese es Beye, BESeH 
rotate ews Hew, PON 
on -—ae 
BZALALZ O° ‘ wee tt 
werhe dears Sebce FEPee ER 
sg Se hg 
an 885° & © 
oO 0 ~ #e S$ ¥a 
gngae SOMES eg 
¥ ie hig & 
fitzge BEngeaeghgene 
¥ ei 8 


ee 
8 8 
88 
a 
8 § 


174000 
136566 
70 
O42S34 136844 


see 
1403 
004737 037470 


Buses 104038 


3062 
3064 
3070 
3074 
1 
ae 
Nai 14 BE 
aati 


19740 
1a 
10744 
10745 
10746 
10747 


1974 


ne 





OCKS 
IS FOR THE DATA- 


TS 10040 OR 10041 OCTAL 


OF CLOCKS 


19748 
10749 
10750 
10751 

» lovee 
710753 


NTO RS 





;POP ates 


TACK 
TACK 
;;POP STACK INTO RO 


CE 


14$: 


PEPE BUBEEPDEPDBEDERDEREEES 


ee Reh Roe Doe Foe a Oe ee he ee ee ee oe De Nee Doe De Dee Ce oe oe oe ee oe ae | 


ee ec ee eee + 


ED POSITION REGISTER WHEN CORRECTION IS COMPLETE 


CONTROL THE ECC GENERATION ROUTINE 


PROCESS 


C 
T 
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i re 043142 000000 ERPOS: 0 sPOSITION REG. WHEN CORRECTION IS COMPLETE 
ra 
183 
l 
10784 043144 01 092000 ECORR: MOV RO, 8PCISR sSAVE PC OF JSR + 4 
1078S 043150 0035 609004 od2000 SUB 84 aepcyer +3 PC OF yen 
10786 043156 912037 043142 MOV (RO)+,a8ERPOS GET POSITION REG. WHEN CORRECTION IS COMPLETE 
10787 O43162 19146 MOV Bl, o(5P) PUSH RI ON STACK 
ies baat ¢ Bf3ati potee HOV oon Sate tort oi GNOS Erte HOOF BIT 
10780 043174 00 042520 CLR — aKECDATA tECC DATA IS ZERO 
isegd , 
1oo33 043200 042534 1$ TST aePOSITI IS SOFTWARE POSITION NON ZERO 
7 : 5 
1079S 43204 ited BNE 2$ !BRANCH IF N-CODE S COMPLETE 
107% 005337 042532 DEC SSNCOUNT =DECREMENT N-C 
tire Bets a i Bae ict ham 
i 5733 04321 d0se37 o4es4e2 6S: Inc D8ZCODE INC NI cL GIVEN FOR LEA ING ZEROS 
10801 G0 TO GIVE CLOCK AND TEST ECC 
1080 043224 005237 042534 2S: INC aePOSITI : INCREMENT POSITION 
IDB BMSESE TBaore CUSINe Ones: BTS eee ence TE HORE ex BORE TO BE RIVEN TT eee ERROR 
1080S 043240 623737 o42s44 042534 CMP JSHADTMP, JePOSITL: HAVE ENOUGH OCKS BEEN GIVEN FOR HARD ERROR 
10808 stHAT IS HAVE 4128 MORE CLOCKS BEEN GIVEN 
1 psoas 901415 BEQ S$ “BRANCH IF YES 
10808 032711 900400 BIT 8ZER, aR} >CHECK ZERO DETECT BIT IN RHMR 
| 19803 043254 OO1016 BNE ly *BRANCH IS ZER SET 
10811 043256 004737 037470 5SR PC, M8PUTREG ;SAVE REGISTERS 
1261¢ 043262 104034 ERROR :2ERO DETECT BIT NOT HIGH 
10613 *WHEN 21 BITS IN ECC 32 BIT REGISTER IS 0 
| 10815 7 
10816 043264 052711 oDD002 3$ BIS SMCLK, ORL :SET CLOCK 
| eis 043270 O4e711 BIC LK’ aR CLEAR CLOCK 
| {Baia Basso0 Beary, tee5e Bet PESSMECTEST = 60. TO GENERATE AND TEST ECC 
10820 . 
| 1beee SAETER THIS CLOCK POSITION REGISTER NAY BE 10040 OR 10042 OCTAL 
bes 043302 052711 00002 SS: BIS = WNCLK, ORI SET CLOCK 
Dees 043306 042711 o00002 BIC #MCLK, aR1 CLEAR CLOCK 
{bese 043312 4S: 
| bese O43312 012601 MOV (SP)+,R1 ;;POP STACK INTO RI 
| 10828 043314 000200 RTS RO 
10628 
i 
cs 
bes 
| 10835 sTHIS SUBROUTINE GENERATES THE ECC FOR WHAT IS ON DISK AND INSERTS THEM 
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| 
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Soren 
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S BRANCH TO" 
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DE 
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Pope 
pop & 
:POP § 
:POP § 
:POP § 
‘POP § 
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001630 
044150 
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040064 
044254 
010000 
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6§: 


bigot 








#RHDB, RO GET STARTING ADDRESS OF RGISTERS 
Mie tro) SAUCER OLD oa 
UF), teas SEF NEN BASE 
1 F T 
bos rae Lar 
T OVER HE _ASCI 2 
(15> «12> /PRESENT PEE TOR ADDRESS IS / 
DBRPVEC,-(SP)  ;GET READY TO TYPE OLD VECTOR ADDRESS 
71$ 5s TYPE PE ASCIZ STRIN STRING 


€15><12>/TYPE NEW VECTOR ADDRESS 6 OR RETYPE OLD ONE FOLLOWED BY “CR”/ 


(SP)+, J#RPVEC 1 TPE YECTOR ADDRESS 
a8 VER THe ASCIZ 
ane OVER 


25 
<15)<12>/RESTART PROGRAM FROM 200 On 210/ 


755 ;s1YPE ASCIZ STRING 
dug GET OVER NER THe ASCIZ 
<15)<12>/NEW Bast’ FLL RENA 
JSRHCS1 , -( SP) 

77$ ssTYPE ASCIZ STRING 
6 GET OVER THE ASCIZ 
(15) ¢12>/NEW VECTOR WILL REMAIN 
DSRPVEC, -(SP) 

795 ;;TYPE ASCIZ STRING 


8$ OVER THE ASCIZ 
<15)<12>/UNTIL PROGRAM IS RELOADED/ 


ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE 


: 
| 


;UNIT UNDER MANUAL TEST 


PC decLDISK ;SET GENERAL REG. 
RY 


BERUNIT, JR2 ioe UNIT 
TEST NE 


es ;BRANCH IF GOOD 








«10848 «044276 000773 1$ NED NOT SET 
/ 10949 044300 000772 1$ :NED SET 


| 
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; RERAARALAAALLAAAE RRA RLALE RARE RALLA LALLA SEES RRLAERAL ARES SLE LEES 
AE pe et EGE tbh et ieee 


ii A batt HEADER AND DATA COMMAND FILL THE FOLLOWING 
sch =WITH CYLINDER TO TON DISK 


;ENWORD= NO OF WORDS TO BE WRITTEN ON DISK 
; THE COMMAND THEN fs JSR PC, COMWHD 


g 
D 
: 
2 
m 
% 
3 


IN A READ HEADER AND DATA COMMAND FILL THE FOLLOWING 
CYL= WITH CYLINDER TO BE FOUND ON DISK 

TR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
KEYI= WITH KEYI 10 BE FOUND ON DISK 
KEYe=WITH KEYe TO BE FOUND ON DISK 

= WITH OF WORDS TO BE FOUND ON DISK 

X=0 MUST BE 
THE C THEN IS JSR PC,COMHD 


BOF Bre gave ree chy 
EU Ee Ee Fo oo 
itn DISK 

OF WORDS TO BE FOUND ON DISK 
THEN IS JSR PC,COMHD 
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SS bee a bes pease aase : es : | 
BASSO URARNE RR aRMNCUSSS SEY § $ : 
:  BRRReaeae BUGUEE E é 

REGRESS aa a3e Sia NORMS AES IRMANBE SAREE eee REAR aRINAES 


fare hae Keon Kean Reem Kee Kee beth keen Koes hem Ream eee heme Rae Dare hee Kae ee Dee ee eae ere eee eee ee re ee ee ee re ee re ee ee re ee ee re ae ee ee ee ee ee ee ee Ree ee ee Ree Dee Dee ben Doe hee! 
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44 40 ‘— HEDSYN: NOP 
eh fee — F “ERROR 3” INSERTED BY RDHEAD 
11063 ti pa THEN THE HEADER SYNC. 


i We He se, Nose Se 
R = 
7 BYTE i$ 
aap Dhl HAS 2 nar IS GOING 


JHERFLCS “ARE ANY ERRORS DETECTED 
OUT , BRANCH 


THIS FORCED HEADER ERROR COMMAND 
pba =~] THEN ont Te OR READ 
oo Th THEN CONTINUE 


E DATA 
OF WORDS TO BE WRITTEN 


2 


2 

R 

3 

eo 
OoWDWooowo 


“READ DATA 
OF WORDS TO BE READ 


;;POP STACK INTO RS 
;;POP STACK INTO RY 
3 POP Bop evate ite R3 


Bop STACK INTO R1 
33POP STACK INTO RO 


: sp, STA. TE RT LEI RE ea 
iTHE DISK SECTOR IS DEVIDED AS FOLLOWS 


32 OF 0, ONE WORD 144000 
;THESE MAKE 39°BYTES FOR SECTOR GAP AND ONE SYNC. BYTE 


BBee 


al=al=l=l=/=/=) 
- ee ee on os 
= 

Dor 

O Be 

NOwe 

is * Ce ioe he tee ae ead 


i 

067 

e 

ee 

is 

074 

i 

a 

079 

O81 pools 
pes 0041 
= 

= 

ES 

Pa 

Bs 

= 

% 

3 


2 
= 


BOVEREGU—S 


These hoxe t "GYTES oR FOR NHEADER GAP AND ONE SYNC. BYTE 


1 
11 
i 
ll 
11 
11 
il 
11 
11 
11 
11 
11 
11 
11 
11 
11 
ll 
1] 
11 
il 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
1} 
11 
11 
11 
11 
11 
11 
1} 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


Be bs Fa bm Fe a ps 0 he Be hm Ge ee 


2 ee 
CmcurroO 


; THERE ARE 256 WORDS OF DATA 








is 
BE 


bbe Bs Bi Gem bem Be ee mt at hs eb he ee he Be be he hs bh be me ht bs Be Be he eh a bb be hs hs Pe he be bo bet ee 
bs hm ee — He he PB 0 ee B82 Pe be fh hb ft hs he th he be bs pe fe Po ho Bop a ho b= be be hs ph ee 
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; THERE ARE 2 WORDS FOR ECC GENERATED BY DCL 
118 WORDS OF 0 FOR DATA GAP AND TOLERANCE GAP 
5 HARI HE HEIRESS HE RAE HEHE HEHE AE HE HEE EERE EEE EEE REEF EEE EEE EEE 





AIO. GIIR FOOD ccesseniblanetanoasnanenenuenn 


5 RRALAAAAELELALL LAE LESSEE LLL LALLA REEL AALLAL LLL ELS LELLAELELAL EERE 


NOSYNC: 0 sFORCED o ERROR = -1 
TY: 0 ERROR TYPE N 
ERWORD: O ERROR WORD NO: 
RDHEAD: MOV (R1)+, @SRCYL ist ORE CYLINDER ADDRESS 
MOV (R1)+, @BRSETR j Toe REY SECTOR TRACK ADDRESS 
MOV (RL)+, @#RKEYI ; 
MOV (R1)+,  QSRKEY fs TORE Keys 
MOV (R1)+, | aaCOMPA 55 COMPARE OR NOT 
MOV R1,-(5P) : PUSH conn e ON STACK | a 
MOV JSRHMR, RO tho CONTAL NS MAINTANENCE REG. 
MOV #2 RS *RS IS A COUNTER FOR WORDS 
MOV aRO *DI 
RO SET SECTOR FOR FIRST WORD 


Hi aMCLK ORD oan Me ono iat Seton oh FIRST WORD 


NE“SECTOR FOR FIRST TIME 


2s 
1S: HOY BHSTCKEMCLK:DHD, ae PES TOR, C10 “eLock, DIAG. MODE, RESET INDEX 
2s: FO ay Re SA ROUNTERS POR BYTES 
Ble —#MCLK’ tReeey™ ot Sc : 
DEC Re ‘BYTE COUNTER 
BNE ‘BRANCH IF BYTE NOT COMPLETE 
DEC 3O—saRS sWORD COUNTER 
BNE “BRANCH IF WORD NOT COMPLETE 


3 
< 


Re *NO OF WORDS OF ZEROS 


4§: ;READ 
3GO TO READ 
; COUNT 


Rue 
1g 
1 2) 


Onwiu 


MOV @BRSYNC,@#WORD ;SYNC. WORD 
JSR P ae 


BIT sOtsy, aRO ;SYNC. BYTE DETECTED? 
BNE "BRANCH IF SYNC DETECTED 





en ee ees 
mb teenteien ae 


See IRR ESRES 


ph pm bs bes Pa be he be 
NOW £UITue 


rurorororuroruru 


nv 


Pat bs et Be be Bae ba he be pe Be be he he be bh Be Ba hs bo hs fh ft b= b= ee fs bh ph Bs fh oh hh bh b= bw FB PP hs a Ph Re pp be he 
Ss 


pe Bas Dns Fa Ft Fs bn bo FO be ob ht be ht fs fe hs ht Bs Ps = Bt he Ben bf Be fe he Fe fm he Bs 2 B= Oh me ep pe 


SARIS 


il ale 
DERPS8.P11 


044710 
044716 


ra 


buu7ee 


le 


hg 
ee 


Bas fh 
FO 


72 00671 
ie 004737 


012737 
013737 


013737 





000001 
044514 
104002 


O44516 
045326 


Rig Wee fee 


004737 
013737 


lee Be 


aS 


Ce 


8 
a 


Re 
— 
<= 
So 


Bisset 


le 
002012 
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MOV ! JSERWORD ERROR WORD NO 
MOV SERSYNC SESCODAT ZSYNC_WORD 
MOV 002; asSSYN ERT FRROR 2” IN SSYN 
cs: Hoy SERCYL, QAHORD Ere CYLINDER 
MOV SLBRD SECTOR/ TRACK 
JSR oe SETUP 
MOV ; SETUP KEY 
ISR gunk Sar 
MOV sitters, 3 aaWORD {SETUP KEY2 
ISR PC, JSREAD : 
MOV DatCRC, J#WORD ; SETUP CRC 
JSR PC, J#READ 
TST astESDTE SA DRIVE TIMING ERROR 
BNE 13$ HIS THIS 8 S 
Isr SECONPA 1S THIS 4 TEA OR WRITE COMMAND 
HOV SHEGAP, RS s POINTER FOR HEADER GAP 
6$: MOV e aee ERROR WORD NO off’ 
JSR PC’ aaWRITE *FOR HEADER GAP . 
TST S¥HWORD TEST WRITTEN WORD 
BEG “BRANCH IF GOOD THAT IS O 
UB R2, JHERWORD *WORD NO IN ERROR 
CLR as$GDDAT ;GO0D WORD SHOULD BE 0 
MOV DWWORD, SBODAT BAD DATA 
MOV #104003, J#HEDGAP “ERROR 2” GOES IN HEDGAP 
BR 13$ ; BRANCH but 
7S: MOV DwWWORD,(RS)+ SAVE HEADER GAP 
EOS 
ISR PC #WRITE ;WRITE HEADER (DATA) GAP SYNC 
CMP DSRSYNC, dBW 
BEQ 10 
TST JeNOSYNC IS THIS F c 
if YES NOSYNC=- THEN WRITE OR READ 
S SHUT OF! 
“ IF NO NOSYNC=O THEN CONTINUE 
Feo #WWORD a a 
a em et 
rn bRaRCH TD. FYPE ERROR 
4§: MOV DRSYNC, IBSGDDAT ;G00D DATA 
St: iad  aeaaaieds Ht 7,4 ;BAD DATA 
MOV +ib4003, SeHEDSYR 
BR 13$ BRANCH OUT 
10S: HOV @HUHORD, ,(RS)+  3SAVE DATA SYNC. 
*READ COMMAND START FROM HERE 
11$: MOV aS Re 
138; CLR WORD 
JSR PC, READ RED HEADER GAP 
DEC Re S S HEADER GAP ZEROS COMPLETE 
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O44S26 
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104002 044430 
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ssi, OBWORD 


WORD 
SeRSYNC’ JSGDDAT; 
#104002, J#HEDSYN 


::PUSH R2 ON 
WORD COUNTER 
: PO Tae a 
*CHECKING IF THERE IS A ONE 
$C One BRA 


age 


18 THI THIS ‘ett 
DATA 
nee ‘1 Hh , IS 0 
T IS A ONE 
ANCH 
tec DATA BIT IS AD 
KEEP ONLY DIAG. MODE 
“CHECKING IF THERE IS A ONE 
*IF NO ONE BRANCH 









tue NOT BRANCH 
FREAD HEADER (DATA) SYNC) 

T M H 
igo ipso ee 


IEA ROT ZERO Er GRANGH TO ERROR 
: BRANCH Lahen Wed 
a 


;;POP STACK INTO RI 


s3 KKHKLKLEREE LAA REL ASA AS LAR ERA LALA LA RARER ALE RASA AR ELAARLALAFRAEKEEE 
"READ ONE WORD IN “WORD” 
8 SLAKAELEL AKA LALA REALE AALAE ARE LALA LEELA LAE LELARAALELARAAL REAR KEEE 


Re ON STACK 


MODE 


ye OE neh DATA HAS ONE 
LOCK,DATA IF ANY 


: BYTE 


0 GENERATE AND TEST E 


- 


Bs BB be 0 bh hb bb bb 8 = Be bs 0 hb be 0 bb sb bb hs bh bo bh 0 pe Ph ep ee pe pe 


SOROS SEN CONC Ss Soin coho SE URS ORS SSE MRR SEI ose Te 


SBS 
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o000e1 


ooo0de 
000001 


MY 
es: MOV 


3$: . §! 


7$: CLR 
8s: MOV 


4§: MOV 


9$: DEC 


5p RERERERERERLE RELL LELE LEE RELLEL RE LELELELE LAL ELE LERL ALE LALA SLLLEE 
;WRIT WORD WHICH COME " x 
: 5 RHREARALARLELERRELA LE RLLEL ALLER ELELELLLAELLEE RELL EAL ELELEAALERES 


WWORD: 0 


WRITE: 


08-OCT-76 11:10 PAGE 220 







) P DATA AND DIAG NODE 
UT IN inte RESET CLOCK, SECTOR 
1; ECC TO BE GENERATED FOR THIS BIT 


F NO 
CLOCKS GIVEN FOR DATA ENVELOPE 
TO GENERATE AND TEST EC 


CLOCK 
15 THIS BIT TO GENERATE ECC 
;BRANCH IF WO, 
31S DATA BIT A ONE 
BRANCH IF DATA Bir Is = 0 
sECC DATA BIT IS A ONE 


H 
Ecc DATA BIT 1S = 0 

*KEEP DIAG. 

‘CHECKING IF THERE IS A ONE 
“BRANCH IF NO ONE 
i KEEP DIAG. MODE AND DATA 

:SET DATA, DIAG. MODE, CLEAR CLOCK 
IS THIS BIT TO GENERATE ECC 
*BRANCH IF NO 


NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
;G0_TO GENERATE AND TEST ECC 

sBYTE COUNTE 

; BRANCH IF ONE BYTE NOT COMPLETE 


;WORD COUNTER 
BRANCH IF ONE WORD NOT COMPLETE 
;;POP STACK INTO Re 


ewees weweweewes 
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SBRBRN 
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;BYTE a ad 4 


#7 R2 
BMSTCK!MCLK!DMD, ORO; -SET SECTOR AND CLOCK 
MR,  aRO 


#-1, J8ECDATA 


R3 
3$ 
asECDATA 


R3 
#0MD,  9RO 
Sis 
ATENV 

gee eaECTEST 
an NCLK 

a" 

S secromme 
R3 

6S 

JKECDATA 
R3 

#0MD, RO 
gUTSECCG 


a#DATENV 
PC, a#ECTEST 


@#WWORD 


‘CHECK WRITEBIT IN MAINT. REG. 
; BRANCH IF ZERO 
“ECC DATA BIT IS A ONE 
: CARRY 
“MOVE 1 FORWARD 
sECC DATA BIT IS = 0 
ive CARRY 
Hy EO FOR WWORD 
AR SECTOR AND CLOCK 
1c THIS BIT TO GENERATE ECC 


NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
1D TD GENERATE AND TEST ECC 


CLOCK 
;CHECK WRITE BIT IN MAINT. REG. 
BRANCH IF ZERO 
ECC DATA BIT IS A ONE 
SET CARRY 
MOVE 1 FOR WWORD 
ETE aR Ce aM IS ZERO 
; MOVE rs FOR WWORD 
;CLEAR CLOCK 
15 THIS pir TO GENERATE ECC 
;BRANCH IF NO 


;NUMBER OF CLOCKS GIVEN FOR pom ENVELOPE 
G0 TO Te aS TEST ECC 


FOR WORD 

{TF NOT WORD END BRANCH 

:STORE WORD 

; ; POF TACK INTO RS 
TACK INTO R3 


;;POP STACK INTO Re 
;;POP STACK INTO RO 


a3 Sree BR ee 
jp RRRRRE REEL EE ERE RERLE REEL EEREA REA ARES LRA ELE E EL RREE REEL ERE EEEE 
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GOTT eee ReKnen mB 2 Sh Sh Sh LA. 
cu Ee ¢ wo fle ! 
oO 3 5 + r+ m wit wt me 
ae iS ae ee? 2.82 Soae zi eee ee 288 ei 
a - FRB Fa 3 g Ekioe 
z Sete A goa a E aR 5 ie 
ce CEE REUTE Se Leama CCAR BBL ANNE SS AEN AUE ATMS RELA S OE 
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$0 : ap ie eet é 
2 8 cs as 4 $8 3 


- §) SiS Be oe 
i SECURE Rare TEE 


RSS IMME AEA RT Soto bebe eu ALUN TCR beet 
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| BPRS IE BS BS ISNT Eos Se RTO P RDS INAE MADRS PTY TELE S TT RGD 
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0 62 + B= 6 = b= b= & = 2 Os = = Hb = Ho =m 2 6 9 2H 2H OH 2 =H - — & — OO = sO Hs 2 Be How 


BERREDRC SSR RRL HOES SRA EERE 


i 
j 


. o 
“oN 


o-- b= 
o2e-- 
s 


panseeae cee 


pes Eee 


a 


322 
Qo00000r-oO 


2LLLIS2 


rar 


RPS-8 
DISK SI 


4 
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000004 


00000 


002000 


132222 
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$s RERAERALERET RASA LAE SERELHRAEAARAALLELALERE RAE L AAAS SELF ASAE ELA SE 


:WRITE HEADER AND DATA 


ITHIS IS THE 
sONLY ONE 


SE 

WS 
HEADER: “Bek 
WORC: .BLKW 
HEGAP: or 
— 
WECCI: Erk 
WECCe: .BLKW 
DTAGAP: .BLKW 
TOLGAP: .BLKi 


= Ul £ eo 
ty rr) 


b= bp = He 
+ 


SIMULATED DISK 
SECTOR OF SPACE IS ALLOWED 
5 RERRREAREREREER RAE EASRAEEARERSEARAESAREREE EER DEALER ESSE SEES EEE 


HEADER GAP 10 BYTE 
oS GPP 1 gyre 

;USED IN SILO TEST AS SILO 
;DATA SPACE 


SEETOR/TRACK, 


Ce 
DATA GAP 2 BYTES OF 0 


TOLERANCE GAP 28 BYTES OF 0 





YNC BYTE 
Yl, KeY2 


5p LHERERESLERLAESLALLALLLLE RELL LESS LARA AL SELALALELLEAERELE SARL AER Ee | 


© HEHEHHEHEHEHEHHEHEHHHEEHHEHBHEHEHEHHEHEHHHEHEHHEHEHHE HEHEHE 


goSse3e52 
SRPBAZBT 


we 


S$ 
;SET D 


TACK 
TAGNOSTIC MODE 
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“Pll DISK SIMULAT ON” : 


74 13217 Bis #GO, dRHCS1 ;0 
Byrass Biaeu Oa7520 MOV JeNSECTR, ft od ;GET furan 


Baouas Bi5c48 Aoaes ait (36, G, ” JaWTRK ‘Bay AVE agian 
O474S0 004137 OS0426 JSR 1, a8SEARCH "DO SEARCH SECTOR 


pata WTRK: .WORD ; SECTOR _NO. 
iy, +NOP RI ‘GOING TO MOVE NOPS 


Se 


SISISISTUTIUIUTIUION 
ed edit ond ood od ot eet 
00 “IOP UT .£ LUTUS- 


=> bb 2 B= hs BB 


20-2 po beh | 2 h-2 bs &-0 &2 Po fw fw hs fo f-0 
23 
zt 
Oo 
<< 
DDBDDD DA es 


047532 O000240 FSYNER: NOP 


ous 
E 
Fang 
2 


ERR 


inter Sine 1s eeerOR 

sRIGHT BYTE IS SECTOR GAP 
sent BYTE IS SYNC, BY 

se, HRD IS WHAT IS GOING ON 
’ 


047534 900240 ERHEAD: NOP 
;IF “ERROR 6” INSERTED BY 


eR GOING ON DISK 
YL 


C por NO 
I OR/ TRACK 
Y 





WHAT IS GOING ON 


047536 O0Ce40 ERCRC: NOP D BY 
HEN CRC WRITTEN 


0 O-+ b= bb = bh 0 = B= 8 8 8 FF 8 0 = 0 = 0 0 0 2 2 0 8 bo -2 B= 0 2 0 2 b= o> Ds 2 0 9 bo F-0 F— & -0 hH  HPaepoH op 


a aa ana a ee AAR ER i 


B35 





ee 


Te a ee nee + = - —— 
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PRUNE CS LL -OERPS 
Pll 


047549 O0024C 


b= P= 0 = p— 9 hb 


PANNE Ae aS 


E§ 
a 


SRNR 
Soop 


BRIRRE REO SE GRRL SRE OR REGO B dal lola 






;GO000 DATA IS WHAT SHOULD BE ON DISK 
;BAD DATA IS WHAT IS GOING ON DISK 
;WORD NO IS S 


AD SUBROUTINE 
ISK 


“ARE ANY ERRORS DETECTED 
sIF YES BRANCH 


;FORMAT COMMAND NO. OF DATA 


;;POP STACK INTO RS 
;;POP STACK INTO RY 


ttpop STACK INTO RI 
ttpop STACK INTO RO 


g3 Str SRE Te ee ee eee 
: ; LASRELELALASLAL LEAL ERASE LARA LLELLLEA EELS ELERLL EERE ALAA LAL LAR ERE 


COMNGKKKKMOo 
2 b= On b= 8 Oo ee 


ADD NO Ul£ Wire 


b= sb b= B= = Bb B= = = 0 Fb 0 bb = = 0 F-  0-2 B* 0 fh = bs 0 = B= 0 Bb 0 Os = f= 6-2 = & = Be BB poh 2 go pe pw 


D+ b 2 Bo D2 Pe Gs = F 2b b= b= Bs hb + =o = = Ob = Bb 2 Bs hs Bo B= = 8 hs = hh bh oh 2h mh 2H 2p 2H mF oh > H-oH oH Oo 


B 


;RO = MAINT.REG.; Rl = SIMULATED DISK; Re = BYTE COUNT; R3 = WRITE WORD; RS = WORD COUNT 
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11621 

llgéee 047600 000000 SCYL: 
Hes ie nt 
11 7606 000001 SKEYe: 
11658 047610 000000 SCRC 
11 

ies O476le 012137 047600 WRHEAD 
TT 047616 piel se 047602 

ls Sire Bale Bi 

il 10146 

HES Ere BI cues 

ie 7644 at 001650 

HS Bree ety bat 

Hey fie Ge Ba 
1 74 , 

11 

HES Rene Sete 7 
ies eee 1 poo 3$ 
11649 047714 O1e70e 

11650 nee 10 000002 4§ 
Hs fee Re 

11 

11 1 

11 

11 

11 

11658 6S: 
11 

Hes 

11661 

11662 

11663 1 

11664 

11665 

11666 

11667 005037 

Hes ie fie 

1} 

1167 1 7$: 
11 O44S32 10S: 
11674 0137e1 O4SSS56 

Hes es ee 

11676 OS0042 160237 O44S32 


—_—---- 


| 


oO0000 


ad ah 


moswesese 


(R1)+, a@aSCYL 
(ites Seepecie 
(R1)+, seKEYe 
cto PUSH R1 ON STACK 
SSECGAP, R1 H ee B18 YnoycaroR 
ener, ; ?RO NOW HAS MAINT. REG. ADDR 
T SECTOR FOR FIRST ByT 
Eien is Sef sec SECTOR, CLOCK » MODE, RESET INDEX 
sCHECK WRITE BIT IN MATE RE 
;SET CARRY 
~ ; MOVE ONE FORWARD 
FOLEAR CARRY 
So, go ee teen 
+ eS ieyie count 
ante, pty CK WRITE BIT IN MAINT.REG. 
ss ’ Seek iH 5B 
:SET Kheky 
R3 *MOVE ONE FORWARD 
R3 
#OMD,  9RO 
is 
1$ 
: (R1)+ 
R 
#1, IBERWORD 
Hn, EL 
& # 
asi7s BRANCH OUT 
#18., Re 5 COUNT NO. oF SEC 
a) ; COUNT T Give SPOR GORD 
DAWRITE 3WRITE SEC 
SHLINORD ,(R1)+ STORE SECTOR GAP WORD 
R2, JUERWORD ;1F NOT GET ERROR WORD NO. 











DERPSB.Pil 


BE 


1 

1 

2 1 

i 

1683 

1684 

1685 

1686 

1687 

1688 00 

1689 02 

1690 

1691 06 

ea 

2 Bi 

6 

iS Bis 

698 56 
76 


= Sc - 
-\ = - 
Nw rurU bs be ht bh = ba be fe pe p< ps 
4A 


bb 0 0 bb 8 0 Bb bb b= Bb 0 = 0 0 0 bb 0 bb bh bb Bf Ob 9 fo & 0 B= b> bs ho Po pw Po pe Pe 


Oe Oa nbn bn an ban hn On Bn Pe bn be Ban bee an Fn ae ban Ga Pe eae we ee Gn ae ae wn ae Pw be Gene Pe ne ee ne me Pe 
ROSSINI IANe SSSoS oN SSRI EES ES 

ob b= bh 
ted eee IOUT ECTS B 
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ass 
a 


Lf) 
005037 001124 


Tovade 047580 


5 Ss 
ts 


aes 


=8h 
— 
£ 
£ 


000024 O44S32 
aie 4 001124 
047532 


ooo 
— 
£ 


booo0s o44S32 


a 
= 


Re 
Kt} 
Ur 
Trp 


8 
ee 
x= 
ee 


ee 
Nah 


a 


Sts Oe 


p=$=+=4 
aaraeche 


104006 047536 





SSonn 
=A fee 


<= 
—s 
8 
ben 
bs ee 
e 


047540 


ee 
2 
8 


118: 


128: 
133: 


14S: 
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CLR 
ERY 
MOV 
BR 
E 


*BE HIGH. SO THAT He HE R SYNC BYTE CAN BE GIVEN 
ie conrED THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE 
ts MOR ESOTE 31S THIS A DRIVE TIMING ERROR 
BNE ? "BRANCH OUT IF 
ISR PC, DeWRITE sHRITE ONE CTOR GAP O BYTE 
: Pm = 230 
MOV QeWWORD,(R1) SAVE O BYTE SYNC BYTE 
CMP DBRSYNC, (R1)+ IF SYNC. BYTE RIGHT 
BEQ 12 :IF BRANCH 
HOV SERSYNCTDESCDORT Tn ee ee ea’ OF ERROR 
MOV -(R1) SeesooRT BAD 
HOV #104006, deFSYNER “INSERT “ERROR 6” IN FSYNER 
MOV 84 *FOUR WORDS _ 
MOV #SCYL fs *POINTER FOR HEADER TABLE 
MOV #5, JSERWORD j ERROR WORD NO SET 
JSR P DOWRITE WRITE 4 WORDS 
MOV DBMWORD, (R1) j STORE WRITTEN WORD 
CMP (R3)+, (RI)+ } 3 IT RIGHT? 
BEQ 14$ IF GOOD BRANCH 
IF NOT GET READY FOR PRINT 

R2, JHERWORD ;WORD NO 

-(R3),a8SGDDAT ;GO0D DATA 

-(R1)°a8SBDDAT :BAD DATA 

#104006, oHERHERD jNSERT “ERROR 6” 


Beer e Sues SSS on goume Sees 


1 + IF 
sAT THIS POINT THE SECTOR F FLOP SHOULD 












STS DRD geSB00AT BAD WORD” 

a IONE SESECPER BOR SP RROR 6" IN SEGPER 
17§ sBRANCH OUT 

R *HAVE 18 ; OF ZEROS BEEN WRITTEN 





FARE 4 HEADER WORDS DONE? 
tTF NOT BRANCH 
QHWRITE {WRITE CRC 


NOD (A HEONPRRE Gogo CRC 


$ToSone, enone iPReoRT PaROR 
Seen ee ere" 
a : »(R1)+ eT 500 BRANCH 


: WORD NO 
a T GOOD DATA 
-(F1), @8SBODAT _;BAD DATA 
#104006, ORERHOGP jSTORE “ERROR 6” 


; BRANCH b 


ae 








MAT 
Pil 


ot 
1 


SIRRESRAS IAA SAA SSE EATER DSS AD SSSR SoR SSRN 


C-11-DERPS- 


MACY11 27(732) 
DISK SIMULATION 


O4SSE0 
| Far 


141 

12737 000005 O44532 
eet neye 

13 14 001124 
012737 104006 047542 
012601 
000201 
oo0c000 
tee oso4e4 

10046 
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16$: DEC R2 sARE S HEADER GAP ZEROS DONE 
BNE 1S$ IF NOT BRANCH 
JS PC, DSWRITE 
MOV GEUWORD, (RL) 
CMP #RSYNC, (R1)+ 
BEQ 17$ 
MOV #5, J#ERWORD 
MOV -(R1), a@#$BDDAT 
MOV #RSYAC, asSGDDAT 
pu MOV #104006; J#HDESYN 
MOV (SP)+,R1 ;;POP STACK INTO Ri 
RTS Ri 


Hbbsbalnhelal-bah-b-h-balalalalalalalalslalalalalaislaislalslslslsisisislsisisislsisisislslelsisisleiiisleisieisielaisielelal 


2 bee oH SECTOR 


5 p RERRHEAALALAL ELE LEE SERELALLAARELAELALELA LALLA ELE LE LLL AL ELL LE LER 


: eee Pre tae SEARCHED FOR) 
fat ae Me SECTOR CLOCKS ARE GIVEN TO RESET 
ve 
: 
, 


bE, 


*A CTOR CLOCK HAS TO RISE 

te CKS ONE SECTOR CLOCK IS 

: the sett AS FOLLOWS 

i THE iNea CLOCK non ONoe - 

: -] 

TH NEXT -2 

if ‘ LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER - 608 

°T SECTOR THEN HAS 608 SECTOR CLOCKS 

:T NEXT SECTOR THEN HAS ANOTHER 608 SECTOR CLOCKS 

5 

SECTR: 0 sSECTOR SEARCHED FOR 

SEARCH: MOV (R1)+, @SSECTR ;SAVE SECTOR SEARCHED FOR 
RO, -( SP) PUSH RO ON STAC 









102 
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DISK SIMULATION 


11-DERPS-8 


1 
-Pll 


‘a. 


oOo 
2 
= 


S 
: = 
_- 
nee Ace 
i 8 goes 
¥ 3 dat 
vont Bu pee enee 
SeSee, CSosdlggtoss 
SEEEE eee ere eee 
CIES E Sout Bey 
saat stile Zune 
ape et aT 
Orr ui uF 
ae ee 
a: 
badd eckenes Se 
Robie wee E = 
reene Betrintntn Zo 5 
avtiviassssss Sake 
SSSSeSicaas neeHe 
BEseaS2 ze 
sues 
oon-- 


oe ee oe ee coe) 


SOERERORn SNS 


ceconaeaeee 


PRERRERER PE Sanaa 


=> 


WITH ONE CLOCK 


AND ALL OTHER B 


amr 


;FOR FIRST BYTE SECTOR CLOCK WILL 
;BOTH WILL es DOWN TOGETHER T 
FICAL 


;WILL BE IDEN 





O-uUnMmTNwr wo 
Ce Rook Note oe Moe Re Rot on oe roe 
DOOWMDOWDOOOaOM 


a 3 - 

a. oS 

z a fod 

se bee esece 

ra -m £5 oS55ax 

~ Ho 3&3 eaae5 

3 Soe a -s & be-co 

Bee oés ,cnipe, & feces 
atios otoda to BkaouS 
Lo aa oS - uit: Sal 
Saviendkdasaeee 9 Seaucd 

a8 RE 


concn 
de 
;NOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL 


. Sy S3x ; BSy 
jae ceeE econ Bi -ee8 
spuaevomouuscy 2 spanow 
oor aa 3 


STR ASN teieih ieee 


Rae Ree Keen Ree Rees Recs Death Deets Neen Kei Ke Keen ore Keeton Keon ot Rome hee ee re eee ree ee ree oe hee noe nee ee ee ee ee ee ee ne ee ee ee Ree Roe Roe Kes Ree Doe Bee Den Doe Dan 


Se Ree Reems Keates Ree Keen Ream Keone Reems Kae Beem Reon Dosen Dean ea Keen Deeem Reem Keon, cee Ra Ram een Some Keen Roe Roe oe Ron oe oe oe roe oe roe ro | ee Se RS ee ee Ee Ree ee cee Ree Kee Doe Dee Doe hoe Daal 


Ra BSP o o-— 
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MAINDEC-11-DERPS-8 MACYil 
DERPSS.P11 DISK SIMULATIO: 
Liese ia ooo0ce 
it 137 
HES BES Be 
i ws 1 
lisse Bepeus B371B 000010 
it 050650 O4e710 000010 
Hes Ee Bi 
Hts, 
ieee OS0660 012605 
1133 05066e 012604 
tise 050664 1seR3 
Hes Bae Bie 
11 0S067e 012600 
11864 050674 000201 
11865 
11866 
11867 
11868 
11869 
11870 
11871 050676 000000 
1187e 050700 000000 
11873 
11874 
HEE sare ai 
Hes be BLE aa 
11878 O5071e 010146 
iibes 14 002010 
11 1 
1188 0127 77777 ~=C4eS26 
i 012702 
tise 
He 
He, 
or 
11885 
11 
11 
11 
11 
11 
11 
11 
it 
3 
11 
11 





73: 


dRO 


4$ 
aMSTCK, JRO 
eMSTCK, JRO 


sFESET LOR 


ids BY TE? 
; H IF NOT COMPLETE 
; OMPLETE? 


H_IF NO 
31S SECTOR COMPLETE 
; H IF NOT 


*SET SECTOR 

“CLEAR SECTOR 

: 15 REQUIRED NO OF SECTORS COMPLETE 
: H IF NOT 


NTO RS 
NTO RY 
;;POP STACK INTO R3 
;;POP STACK 


;;POP at eee 
;;POP STACK 


SP rriitiitittiiiiititittttttttiiitiiitiiittttttriiiity 
ONE SECTOR OF DAT 


; M4 
: 5 RAELEREAALA RL AAA ELLA LAL LEA ELERER EAE LA ALARA RARE ERA ARE RE ERE EE EEE 


RNO: 
RCOM: 


REDATA: 


4§; 





e-en-—— 
(Re~-wDwD 


iS 
3 


ODO 


Bove Ne OF igi Y FOR INFORMATION 
XTRA WORD ONLY FOR INFORMATION 


ND EST 
S ARE TO GENERATE ECC 
CTOR 


MORE ECC BITS ARE TO BE GENERATED 
ONE DATP GAP 13 TOLERANCE GAP 

iRE Y TO READ CONTENTS OF WORD 

* COUNT 

BRANCH IF 14 NOT DONE 


;:POP STACK INTO Ri 
: RETURN 



















: 
ih 


DISK SIMULATION 


012 RPVECT: 
oe ae = me oe LT Cie he Wh 
iiss: .ASCIZ OTB open FROM PC =°7 


eI Sth iss cie 


01 
o42 
os 104401 


YPOC ; TYPE FROM PC 
pieren 051012 130544 MOV #RPVECT , JRPVEC ;RESTORE TRAP .RPOY VECTOR 
00 HALT ;CHANGE TO CONTINUE 


oe 


MNetwu-O 
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DERPSB.P11 


b> 2 ee 
wc 


= Pb Fs Pte 6-2 pp pe 


GRA See TRRN SEO OTS 
RAR 


051106 


Qa bt he ae Fb ee bs fs ba Ge hes Pe pe 


SVE CRS RIT CCMESSSeRS PBS 


eRe ea eT aa alk te Ef 


RARAARARR RAR I ORR 


bb hae hs f= hn eh Pn BO bs ae bn be bs hs 0 b= b= be B= b= b= B2 FP B= Bh = 0 0 Fb = BB =F Bp pe pe 
wo 


2 bn ae Bae Be Be Bae ae ae Be ee ae Pan Be ae Pe eae ne ae ae ne ee Pen be me Pe Pn Pe en Pe Pe Pan ne Pe Pe Has Hue ho b= fo fe Po 
bs bb = = Bo Bs hb bh hb be be Pe ph pe 


3 
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ATION 


130036 


000004 


127770 
127722 


127705 
127732 
127670 
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5 RERFLELERERELELELSSRA SEE EESE 





-SBTTL SCOPE HANDLER ROUTINE 
33 [Feegeencecuaneraenensnsunessasrerespterstescssbagenoesmesseenre 


Hand SR HE SPS nae stetna io tee Sh by Me GteREAY Tso 
iaTH SH Rich H OPTIONS PRO PR OVI BY tHe ROUTINE ARES ; 


cul i=t INMIBIT: ITERATIONS 
: xSW09=1 LOOP ON ERROR 
j #SHO8=] LOOP ON TEST IN SWR<7:0> 
;% SCOPE ;;SCOPE=I0T 
S$SCOPE: 
CLR aWNOSYNC SCLEAR FLAG FOR HEADER ERROR COMMANDS 
CLR aaTsecc « ™ ;CLEAR FLAG FOR ECC TEST 
{WHEN =1 IT 1S AN ECC TEST 


;WHEN =0 IT “ts hot AN ECC TEST 





CLR JeTSECCG sEVEN IN AN ECC TEST EVERY CLOCK 
if NOT TO GENERAT ECC 
tIF =] NERATE ECC 
IF =0 DO NOT GENERATE EC 
i CLR OSTESDTE :DRIVE TIMING ERROR TE 
1S: BIT #B1T14, aSWR 5 LOOP ON PRESENT TEST? 
BNE YES IF SWi4=1 
pvaeeSTBRT OF CODE FOR THE XOR tesTERseats 
$xTSTR: BR 6$ i316 RUN ON THE “XOR" TESTER CHANGE 
He ae the INST RUCTION TO A "NOP" (NOP=240) 
MOV SsERRVEC -(SP) i SAV CONTENTS OF THE ERROR VECTOR 
MOV #55, JHERAVEC $3 
aM ester SHERRVEC !! re N38 VECTOR 
Me ane Hes ‘eae Regt ! ae st 
cs: CHP fae {SP)4 a eto y STACK. AFTER Pe TIME OUT 
BR 7 tae _ bi Reap oR, THE RECENY fest 
6$:;##88#END OF CODE FOR THE XOR ‘+ECTERGee 
I #81708, , aSUR 3300 on *EPEC. TEST? 
CMPB 4s ASW, STSTNM :0N THE RIGHT TEST?  SWR<7:0> 
Q SOV *:BR IF YES 
2s: STB  SERFLG HAS AN ERROR OCCURRED? 
BEQ 3¢ :;BR IF NO 
cHPB SERMAX, SERFLG jsMAK. ERR ERRORS FOR THIS TEST OCCURRED? 
BIT #81709, ISWR LOO ot ON ERROR? 
78: HOV SLPERR, SLPAOR 33SET LOOP ADDRESS TO LAST SCOPE 7 
ug; CLRB © $ERFLG _$32ERO THE ERROR FLAG 
CLR TIMES *:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ ESCAPE TO THE NEXT TEST 








aps 


bob p+ pe 


RRRRARRRRRRRRRRRRRR —. 


+b =~ b= b= b+ b= 6 — 9 = 9 9 9 b= ph pe pep ps be 
O—* b+ Pb B= = bb = ho po he Be 


RRR RREEISISSSSS ga 


D+ + Pas b> f= 2b = > bo B= B= = = pop B= 


SES Rebaa 


Sao 


tou 
3 


it ~DERPS-B 


rat 


— 
<£ 


aT) 
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#BIT11,aSWR 
Pass 
is 


SICNT 
STIMES, SICNT 
SOVER 


Apiake aDISPLAY 





m 
en 






TERATIONS? 


RMT TTeRat Yoh 


ee 
TERA 


fae 
The. TERAT 
R OF 


I Ma 


;SAVE ERROR LOOP SS 
:}CLEBR TH THE ESCAPE Ag ERROR ADDRESS 
ae 4 AE Low OR ON NEXT TEST 


Peet 
RETURN HDRES 
MAX NUMBER OF ITERATIONS 
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a emt 
DERPSS.Pil CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


oO 
we 


0-- §-=0-- B—- » -- > = p— 9p 9 = 


BS9 


Saeed 


Boh ieristisi 


= 0 ee 
WONIMUNS wre 


—QOo0OK0000 


£ 


RRRENSERREOBES 
R 


Petty hfeiytursly 
Spwmppive 
O90 
: sts 
any 


= 


ate 
BRR 


SESE LCLCLO 
as 
™“ 
— 


RURSA IIR TODR SSSR 


eas 


SN 
ate 


TAA ROMO ROU ROR UNURER RURUR UNURURUNUN UR URUR OR UR RCONOR 


G+ bs bs he Os OB bh 0 Be bt bh = b= 0 eh 


iy 


_ 


177777 177776 


RBins 
Ststatet= 


b= Bb bb 6 0 = b= b= P= = Bb = = 0 0 0 Bb 0 be = = + b= be = 9; BB 9 = & 2 = BDO 6 = <2 = & = 0 — 2 = BP = 0 ~~ bp — he Ph 
oe 


ps daaeariscninvits 


yt 
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-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
; a i eg ee gt a eng ae ee 


Hitheb betlnat ETL) NMMEER ARO TYPE TY. DEFENDING ON UETiER THE 


NUMBER IS POSITIV GATIVE tL BE TYPED 
be LACED mae Fist 01617 NOE THE NUMBER. “LEADING. FEROS Tit T ALWAYS BE 





7% «MOV NUM, -(SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
rr TYPDS : $366 10 THE ROUTI 
STYPDS: 
MOV RO, -(SP) 5 3PU RO ON STACK 
MOV Ri; -(5P) RI ON TACK 
MOV Re, -(SP) PUSH ON STACK 
MOV R3,-<SP) 23 R STACK 
RS: - + Puen R STACK 
MOV #20200,-(SP)  3:SET BLANK SWITCH AND SIGN 
Me laa Ma 
mis P-vucsr) ERE Se a eee 
1S: CLR RO HERD THe Cant ANC THOR. 
MOV #$DBLK,.R3 3 SETUP T Rel tinea POIN TER 
MOVB = #”—, (R3)+ 58 ET ate F I HARACTER TC A BLANK 
ae ah Re (RO),R1 
’ te 
38: SUB AYRE 18 Heh Sy DIGIT 
Inc Re + ACREAGE THE BCD DIGIT BY 1 
4g: ADD R1,RS ;ADD BACK THE CONSTANT 
TST Re CHECK IF BCD D GIT=0 
BNE o$ FALL THROUGH I 
TSTB ss (SP?) ;;STILL DOING LEADING 0’S? 
BMI 75 :BR IF YES 
cs: ASLB (SP) > MSD? 
BCC 6$ ::BR IF NO 
MOVB 1(SP),-1(R3)  3;YES--SET THE SIGN 
6S: BIS #'0,Re ;;MAKE THE BCD DIGIT ASCII . 
7§: BIS #’ ‘Ro *:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
MOVB Re, (R3)+ 3;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO)+ *JUST INCREMENTING 
CMP RO, #10 tt CHECK THE TABLE INDEX 
BLT 2 *:GO DO THE NEXT DIGIT 
BGT 83 3360 TO EXIT 
MOV RS,Re *GET THE L 
BR 6 130 CHARGE TO ASCII 
8S: STB (SP + ;WAS THE LSD THE FIRST NON-ZERO? 
MOVB  =1(SP),-2(R3) ie “SET THE SIGN FOR TYPING 
9S: CLRB ss (R33) ;SET THE TERN NATOR 
MOV (SP)+,R5 POP STACK INTO R 
MOV (5P)+,R3 + POP STACK INTO R3 
MOV (SP)+; Re *:POP STACK INTO Re 
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SEEPSE PTT on CONVERT BINARY £0 DESIMAT ANG TYRE ROUTINE 
l 051 1260 MOV (SP)+, RI :3POP STACK Into R! 
l l 2006 MOV (5P)4°RO ; ;POP STACK K INTO RO 
} } 400 051560 TYPE SO8L YPE THE 
1 l 1 005062 oocoo4 MOV B(SP),4(SP) tao gusT THE STACK 
l is44 1 HOV (SP)+’ (SP) 
1205 1 RTI :;RETURN TO USER 
i 1 ew SOTBL: 10000. 
l l 750 1000. 
12054 051 144 100. 
i Bel Bposes K Ye ku 4 
isos? hid ifE ROUTINE 
ise 3 s SRERESESFSSLSESLSSRFSSELAESESAERASLSERALARSASLSLAAALASSAESSLELLESS 
12060 seROT TINE TO TYPE ASCIZ Ne . MESSAGE MUST TERMINATE WITH a 
12081 #THE ROUTINE WILL INSERT NUMBER OF NULL CHARACTERS AFTER 
iss :#NgT 1: Site eon RINS_THE CHARACTER TO BE USED RS THE” FILLER BieRacTER. 
: Ee j #NOT ILLC RONTRINE te RURBACTER Fes ie ™ . 
12066 } #CALL: 
12067 +81) USING A TRAP INSTRUCTION 
12 : TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
tenes :#0R 
1 3% 2 re 
12071 3* MESADR 
i535 she 
12074 051570 STYPE: TSTB  STPFLG i318 THERE A TERMINAL? 
i 351 BPL 1S BR IF wks 
i } HALT : HAL IF NO TERMINAL 
ee sy Bie 
1 1604 ; MOV tsp) RO cee PORES of aSCIzZ STRING 
i pig ” see IT Sn Te TERMINOTOR ek 
1e0ee eis a (bps He pat nate OR POP IT OFF THE STACK 
1 1616 60S: MoV (5P)+, RO + REST 
12084 051 38: ADD #2, (SP) au RETURN PC 
| 42: ibe4 RT 
| i te 4§: 4 sHT, (SP) $8 NCH IF <HT> 
1 : aoe BCRLF,, (SP) ;;BRANCH IF NOT <CRLF> 
ies ta Pe PB, s7POB_ <CRD<LF> EQUIV 
| : 1 ib TYPE >: TYPE A CR AND LF 
1 1 RB CHARCNT CLEAR C 
|e Bie i SPORES gg" 
i} 1 Ss: SR STYPEC THIS CHARRC zoe. 
| 12996 051 6S: CMPB 3s SF ELL, (SP)+ $3 Pho IT D ee OR xt the CHARS. ? 
i 4 Oot BNE 2s iF GO GET NEX 
lel 1674 7S: DECB =_-AC SP) i A NULL NEED TO BE TYPED? 
| 1 iff e500 BL 6$ ::BR ‘ NO=-GO POP THE NULL OFF OF STACK 
| 
j 
| 




















| 
| 





z 
re 


ARR 


~ 
~“ 
_- 
tu 


rurururururururururururufurury 


0 0+ 0-0 0+ 20 «9 p-— 9 pp ow ph po ps 


—— 2 | 





VERLAG 55 VFHESHHASSBVKRESN BBB VRRP ONS se Sorin con CSD UFR EOD 


=O 2 =O 6 +o 2b = O-2 0 B= & = & ~ 6 — & = B= P= b= O + & + = H+ > = 4H HH OH 6-H <0 2H 2H -* b= 0 0 > + B= b= B+ B+ &-< -- BH 9-3 & ob + 9 -< 0-H H «HO -—— HP — H— |p - 


rurvrurorororururufurorururufurururornufrorurorururururorururufururorururururuforuru 


o— b+ 6 <b 0+ 6 = +20 & = 8 ~ +O = b= Oo 2 2 Ob <= = 8 O- 2 & = & 2 & = 2 Hs 2 & 2 H+ < D9 B © H-= & © H-0 B= H+ H+ 


pe eee ee ee 
| 


| 
| 
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TYPE ROUTINE 

17 767 0000 JSR PC, STYPEC 33G0 TYPE A NULL 

Lee 105367 aida DECB  $CHARCN *:00 NOT COUNT AS A COUNT 
000 BR 7$ ; ;LOOP 


;HORIZONTAL TAB PROCESSOR 


51724 112716 o00040 8$: MOVE = a’_—« (SP) ;;REPLACE TAB WITH SPACE 
l 004767 900014 9g: JSR PC, $TYPEC *: TYPE A SPACE 
izes 7 000007 oDc0Sse - 178 87 )SCHARCNT i BRANCH off NOT AT 

1 13 NE 3 ::TAB ST 

1734 0057; S (SP)+ HH STACK 

1735 7; BR Oe ::GET_NEX CHARACTER 

1740 i 127204 . STYPEC: iSTe STFS . ;WAIT UNTIL PRINTER IS READY 

17% il poso0e 127176 MOVB  2(SP). a$TPB + LOAD CHAR TO BE TYPED INTO DATA REG. 

1754 000015 oo0002 CMPB) sR, 2 LSP) 31S CHARACTER A CARRIAGE RETURN? 

1762 1903 BNE is 3 F NO 

1768 000014 ct SCHARCNT : Tesr-CLERR CHARACTER COUNT 

oo0012 oconoo2 1S: CMPB af (SP) 1S CHARACTER A LINE FEED? 
14 BEd STYPEX ::BRANCH IF YES 
Os<0de NCB (PC)4 >:COUNT T CHARACTER 
SCHARCNT: . HORD 0 CHARACTER COUNT STORAGE 

052006 TYPEX: RIS PC 


-SBTTL TTY INPUT ROUTINE 
sREEREEREEEEEEEEREEE SEER ERLE LEER ELLA LEER ARAL LALEREREEEEEE SE 


,ENABL L 

952010 paq009 STKCNT: .WORD 0 ;;NUMBER_ OF TENS IN QUEUE 

05201 STKQIN: .WORD 0 >; INPUT POINTER 

G5e014 TKQOUT: -HORD : >:QUTPUT POINTER 

16 i TKQSRT: . : +: TTY KEYBOARD QUEUE 
TKOEND=. 
052030 EVEN 

SA TE eee TALIZE THE TTY KEYBOARD INPUT QUEUE 
+ #SETUP iTERRUPT Tete Ao TUR ON THE KEYBOARD INTERRUPT 
;#CALL: 
3% JSR PC, STKINT 
4 RETURN 

005067 177754 $TKINT: CLR STKCNT ;;CLEAR COUNT OF ITEMS IN QUEUE 

052034 012767 052016 177750 MOV SSTKGSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 

2 177744 177744 MOV STKGIN STkQoU 33 UE INTO THE INPUT 8 OUTPUT POINTERS. 
1 1 MOV a$TK OxTKVEC 33 IN I KEYBOARD VECTOR 
MOV aatKVEC+2 3;° 4 
127056 St K 3;CLEAR FLAG 
52070 12777 100 127046 V #100, aSTKS ;;ENABLE TTY KEYBOARD INTERRUPT 
RTS RETURN TO CALLER 


;#TK SERVICE ROUTINE 
;#THIS ash WILL SERVICE THE TTY KEYBOARD INTERRUPT 
;#BY READ HE CHARACTER FROM THE INPUT BUFFER AND PUTTING 











N THE Q 
12159 Ste HE CARAS TER IS A “CONTROL-C" (#C) STKINT IS CALLED AND 
;#UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (OPERSEL) 


17746 §=12704e érksRv: we oes (ee SP) 8 se THE CHARACTER 


2716 (SP) ::STRIP THE 
331 000003 CMP (SP ),83 31S IT A CONTROL C? 
l NE 15 AN 4 F NO 


I 
PE, STKINT Bie CORE TBOARD. ck 


pee 7e8 TST EA STACK 
ig? 164SS4 JMP Penge ;;CONTROL C RESTART 


b+ 9 62H PO > 


BENero28 
o 
we 
~ + 
a3 


<> <0 > 2d -- b= b= po Bp 


BESRRISO SSE SEREOR EBL all LIN Ioe oe 
2 
s 
z 
Ss 
c 


000011 17764€ CMP gp. Stke ii THE FULL? 


BNE H 
001216 TYPE SBELL RING THE TTY BELL 
TST tSP)+ 33CL cLEBN CHARACTER OFF OF STACK 


5 
(SP), #23 poe IT A woe 


RERERReR Ree 


$ MP 
126756 a (ere ieee Pic INTERRUPTS 
T T 


Ht UNTEE Ae T nee 


yy ry ry et et et te ee 


2SFRELHSESSS 





126750 318: T 
BPL 





5 
429 77600 BIC 8¢C17?, (SP) i: I chavae T ASCII 
5 boose1 CMP (SP)+, 621 +315 IT A CONTROL-Q? 
2 1 BNE $3 F_NO 
¢ 000100 126722 HOV , aSTKS $3 Meee TTY KEYBOARD INTERRUPTS 
2 177560 32S: INC STKCNT $ COUNT THIS CHARACTER 
g j 000140 ch (SP), a140 pea PP re 
2 627 000175 CMP (SP), #175 2:1S IT A SPECIAL CHAR? 
: BGT ug ::BRANCH IF 
900040 IC #40, (SP) MAKE IT CASE 
1 Tt MOVB  (SPJ+,QSTKQIN ;;3AND PUT IT IN QUEUE 
2 ? 177532 INC STKOIA >;UPDATE THE POINTER 
: ieee tet 177526 052027 ch TKQIN, SSTKGEND 3;GO OFF THE ? 
bobs 052016 177514 MOV 8STKQSRT, STKQIN siRe eet THE POINTER 
052276 SS: RTI 3 RETURN 


: UTHIe ROUTINE MILL INPUT A SINGLE CHARACTER PRON THE THY 
jATH ATHIS S ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


SSB SRoSRSS 


He ROCHR 33;GET A CHARACTER FROM THE QUEUE 
3% RETURN HERE ;;CHARACTER IS ON THE STACK 
aN 3% ;;HITH PARITY BIT STRIPPED OFF 
1 ’ 
e213 052300 O11646 SROCHR: MOV (SP), -(SP) ;;PUSH DOWN THE PC AND 
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DERP Thy input ROUTINE 
| 














MAT 





Pll 


fe el ee ee 
00D ~ 3G” 


rorurune 


b-2 BPs Hs 2 ps Ps he 


SOCORRO DUNO URN SS cone se com UR RSENS MU OVINE 


ee ae ee ae ee ae ae ae ee Be Pe Be Hee Hae Pee Bw Bw Hae Haw Ps = Has 0 ee Has Hew Hane Hn Hue Hs Pe Pe Hae Hs Hane ss Has He h-2 Ho Ps bs BS 


| 
| 


C-11-DERPS- 
TTY INPUT ROUTINE 


rt ek pLBBES poe ooo0ce es Ceo} BCS 


Eee ieeie aoe 
= 


ie 
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ADY ‘ 4 At penta 


DE BS 
CLR -(SP) PUT 
Haug 


052324 MOY #64$,-(SP) FE ON Pek 

a RTI WP x 3 
177460 1$: 1s! STKCNT vuatt ON A CHARACTER 
177452 DEC KCNT 5 DEC ! THE ee 
177452 000004 MOVE STKQOUT, 4(SP) 5 3GET 
177444 INC KQOU DATE THe POTNTER 
177440 952027 ch STKQOUT, #STKQEND ; DID IT ” OFF OF THE END? 
OS2016 177426 HOV SSTKQSRT, sTKoouT’! Fi HE POINTER 


R 
oS: snenccuceucccccuecucececececskieteseraneeseetneneneneeeesenees 
:ATHIS. ROUTINE WILL INPUT A STRING FROM THE TTY 


:#C 
;* TRING FROM 
i RON HERE ss e Bef C TER ‘WILL BE ON THE STACK 
1 INATOR WILL BE A BYTE OF ALL O'S 
SROLIN: Vv 99 
0S2476 1$: HOV RettyiN. R3 ime ss 
052507 2s: che astTyd INS9. ,R3 ss BUFFE veut? 
BbCRR *360 Ene CHARACTER FROM THE TTY 
Peer tas HIS a ROUT 
’ 3° 
ee QUES HE et 
BR 1s HOLEBR THE BUFFER A AND LOOP 
nOVE (R3), 9S s3£ THE 
ge ico 
cL -1(R3) RETURN (THE 15) 
tt A LINE FEED 
MOV (SP)+, + sRESTORE 
MOV (SP), -(5P) *:ADJUST THE STACK AND PUT ADDRESS OF THE 
HOV 4iSP) 2(SP) He FIRST ASCII CHARACTER ON IT 
nov eSTTYIN, 4(SP) geruRn 
Qs: He FOR ASCII CHAR. TO TYPE 
BYE 6 tee Theron 
KB i 5RESE 9. BYTES FOR TTY INPUT 


TTYIN: . Se . : 
ted ooons Le: 7407¢15><12) 33 ROL “C 
1 ee 7tU/¢15><12> ;;CONTROL “U" 
006 a NTLG: /tG/<15>< 12> ;;CONTROL “G™ 
le2 SMSWR: “Age €15><12>/SWR = / 
pall OS3S0S SMNEW: .ASCIZ / NEW = / 


;FROM THE TTY 

















NAT 
DERP 


12270 
lee? 


: 


15558 


Sea 


ee eee oe on oad 


BeRasReey 


SSSssssgy 
NOU SWe 


Os bs Bae Bae ban bn Bae Gee ne He Pe Hae Pe Ge Hae ae He eae Hae Ge sw Hae ne Pe He fms Ps Pas He Hs fue ae Ps Pao Pe aw bas 


SSeS on srar 
Cee 


b= b= ban 2 pn Fe Pe Be he 
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-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


3 iTale ROUTING WILL READ AN OCTAL (AeCIT) NUMBER FROM THE TTY AND 
&THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


iste teut ; CHARACTERS: WILL BE CHECKED TO INSURED THEY ARE 














ARE LEGAL 
Cin, edie tae Hl Beyer ete 
eh Be RET yeES. OF Par 1s be BY TYPING A CARRIAGE RETURN. 
* RDOCT ;;READ AN oc i 
it RETURN HERE $5LOW ORDER BITS ARE BN TOP OF THE STACK 
3% :sHIGH ORDER BITS ARE IN S$HIOCT 
SRDOCT: MOV (SP), -(SP) $3 s PROV I SPACE FOR THE 
MOV 4(SP)_2(SP) 
MOV RO, -(5P) RO ON STACK 
MOV R1,-(SP) + EUS R oN STACK 
MOV Re, -(SP) i sPUSH Re ON STACK 
1S: ROLIN ;;READ AN ASCIZ LI 
MOV (SP)+,RO ;;GET ADDRESS OF IST CHARACTER 
MOV RO, SS ia SAVE eal 
a ome 
2s: MOVB  (RO)+,-(SP) sPICKUP THIS CHARACTER 
REQ. 3$ tie Gel T 
#’0, (SP) >:MAKE SURE TH CHARACTER 
BGT 4S 31S AN OCTAL DIGIT 
CMPB sé’, (SP) 
BLT uy 
ASL Rl 33 #2 
ROL Re 
ASL Rl 3344 
ROL Re 
ASL Ad 3; *8 
are #107, (SP) sSTRIP THE ASCII JUNK 
ADO e654 Ri HAD IN THIS DIGIT 
3S: Re (SP)+ EAN TERMINATOR FROM STACK 
MOV R1, 12(SP) yoy THE RESULT 
MOV SHIOCT 
MOV (SP)+,Re 
MOV (SP)+, RJ 
Hoy (SP)+,R0 NTO Rh 
4g: Rat (SP 4 Rom STACK 
ae (RO? 
YPE He Fait et T THE BAD CHAR. 
Ss: 7 dono 0 
T SQUES Te “CR” & "LF" 
BR is Y AGAIN 
SHIOCT: .WORD + GH ORDER BITS GO HERE 
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hae 


O44 
010046 


177777 


126161 
062000 
00121 
1261 
26126 
000044 
001223 
126122 


001000 


iseiee 


126144 


001223 
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001772 


126110 
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-SBTTL ERROR HANDLER ROUTINE 


; prevstnsonsesencenperseonensienstevecrvssrsesnstenetarcomtaccers 
THIS ROUTINE R LTEN NURRER AND THE ERROR FLAG AND THE ERROR COUNT, 


iEoAvE I THe ERROR TT AND THE ADDRESS OF THE ERROR CALL 
+ #THE SHITCH OPT LONG "PROVIDE BY THIS ROUTINE ARE: 
2#SW1 HAL oN 
:#5W1 = INHIBIT ERROR TYPEOUTS 
:#5W10= BELL ON ERROR 
s #5H08 1 LOOP ON E 
+ ERROR N ;;ERRORSEMT AND NeERROR ITEM NUMBER 
SERROR 
MOV #-1,38ERFLGS § ;SET ERROR FLAG 
REGSAL 
7S: NCB RFLG i 3SET, THE ERROR FLAG _ 
MOV y }IDISPLAY TEST AURGER AND. ERROR FLAG 
BIT H Tio! toe geuR toe ON ERROR? 
POPE L + RONG BEL 
1S: INC (Seett NT THE NUMBER OF ERRORS 


HOV ( be RRPC *:GET ADDRESS OF ERROR INSTRUCTION 

MOVB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
IT ae is SKTP TYPEOUT F SET 

JSR SERRTYP +:G0 TO USER ERROR ROUTINE 


TYPE  ,SCRLF 
es: ePL_ a ie 4 CONTINUE 
3$: eit arin, JSWR  surTcH SET? 
«oY Bee Bhs FOR LOOPING. 
iy Sescare, (SP) Boge RETIRN ADDRESS FOR ESCAPE 


SS: 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
ATHIS ROUTINE USES THE “ITEN CONTROL GYTE™ (SITENB) 10 DETERMINE 


iATHIS. nis 10" ee Reporte, TY Then GBTRING, FROW The “ERROR TABLE" <SERRTBD, 


RETURN 


ieee inlet S THE E INFORMATION CONCERNING THE ERROR 
SERRTYP: 
TYPE SCRLF s;"CARRIAGE RETURN” & “LINE FEED” 
MOV RO, -(SP) >;SAVE RO 











Perri enrer ts ira 





at Fae h-o be Go B= b= Bas Bee be 9-2 sh 9 ho > Bae Hs Hane Ps Bs Hs B= Fs Fo Ps hs He 





ry: 


oe po ot a pat at at at at te tt 
REROR RE UREN NSS TER coe Soe 


ee 









+r + 
Ata} 








+ 


ea 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
S31 
1 


=e 
£vo 


Cit ~DERPS- 


E 
1 
tS3e) Seance fearo0 
He 053066 001004 
053070 01674 
053074 104401 
1 1 
ad 
1 it 
i E31 
r 053114 
15360 S31 
1 1S: 


: 


001114 


126022 


001223 


001223 


MACY11 27(722) 0 
MES ROU 


Bisa 
BNE 


13: C 


6S: TSTB 
BNE 


7§: 


9S: MOV 
10S: MOV 
TYPE 


RTS 
118: -ASCIZ 
- EVEN 
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INE 


RO 
asSITEMB,RO 
1$ 


SERRPC, -(SP) 


et tatatats: 
ag 
+2 

4 

wo 

3 


+2 
nm 


—2>P 
oo 
J 
-” 
~ 


ie 


;;PICKUP THE ITEM INDEX 


Hel eB Hi Ee 
SERRPC FOR TYPEOU 


tT ERADE pOORE SS, ASCII(ALL DIGITS) 


ih THE ara’ THAT IT WILL 
ERROR TABLE 


339K 

HE 

ii "GOES HERE 
“EINE F 


ee bed T 
Be POINTER GOES HERE 
‘is RETURN" & “LINE FEED” 


Chu “OaTa AL POINTER 
TYPED 
tere: etl POINTER 


fi Hee speci OR TYPEOUT 
::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
(R1)+ FOR TYPEOUT 


it =-DECIMAL ASCII WITH SIGN 
Hf ils THERE ANOTHER NUMBER? 


TWO(2) SPACES 
9° 

Eoee rR 

"CARRIAGE RETURN” & “LINE FEED” 
>3;TWO(2) SPACES 


PTtttitittitiititiiiititiiiiiiiittititiitiiiiiitiititttiiittttiiie: 
“SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


ATHiS ROUTINE 18 USED TO CHANGE 8 16-BIT BINARY NUMGER TO A 6-01 


pe! 
Ni YPOse=EN eR HERE TO 
NUM, -(SP) 


ti * MOV 
3% TYPOS 





T BINARY NUMBER TO A 6-DIGIT 


TYPE IT. 
TUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 
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DERPSS.Pi1 BINARY TO OC (ASCII) AND TYPE 














ie 3% Bvt N :;N=1 TO & FOR NUMBER OF DIGITS TO TYPE 
1 3% -BYT M ssM=] 
1 14 s;1=TYPE LEADING ZEROS 
tei i ::O=SUPPRESS LEADING ZEROS 
1 #S$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
ews j#STYPOS OR $TYPOC 
1 7 = oMOV NUM, -(SP) $3 R TO BE TYPED 
ie is TYPON a: BER OR THPEOUT™ 
ae s #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
1 :# = «MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
me 3% TYPOC ;;CALL FOR TYPEOUT 
1 0176 STYPOS: MOV a(SP),-(SP) + :PICKUP THE MODE 
1 Obese tebe? raat 000211 MOVB tS) SOF TLL 3 ZERO FILL SWITCH 
12454 112667 MOVB  (SP)+,SOMODE+1 ;:NUMBER OF DIGITS TO TYPE 
i 05 32 rhe 000002 BOD #2, (SP) ;;ADJUST RETURN ADDRESS 
LS, 
x il 000001 000171 STYPOC: MO #1, SOFIL :;SET T RO FILL SWITCH 
112767 000006 wants NOV te, SOROUE+1 2 roe X(6) DiciTs 
12767 0000S 000154 STYPON: MOVB  485'S0CN :3SET THe ITERATION COUNT 
l MOV R3,-(SP) 235A 
Sue BLOSHe HOY. Re’ =p) 1 OVE Re 
ie 000145 nove SOMODE' RA 33GET THe NUMBER OF DIGITS TO TYPE 
goon #6,R4 ;:SUBTRACT IT FOR MAX. ALLOWED 
tie 4 5001 nove SOFTLY ope iene it FOR ILL SWITCH 
antes (SP)'RS iB PERO PUT Nhe 
C OUTPUT WORD 


5 i CLEAR THE 
1S: ROL BE j;ROTBTE NSB INTO “C* 
ze + RN THIS DIGIT 


;;GET LSB OF THIS DIGIT 





s2acgegs 
Baeeeteanes 
S330 
zmwz 
. 





B= ho & = b> b= b= be B= = bb bt Fh P= B= b= bh B= Fb Ph = Bs 0-9 ps Gh te 


SRE IRRPRR ERIS ISO IAA ISE OR 


000076 * “DEB «SOMODE ji TYPE THIS DIGIT? 
177770 I #177770, R3 eR RID OF JUNK 
4 ;;TEST FOR O 
TST RY js SUPPRESS THIS 0? 
bes the a R3 He D nent 7? 
cs: B 8’ (RB + NAKE asc F NOT ALREADY 
i nove 3,68 i109 ype THis Dirt 
7S: Ma eS RO NT 
? HH HORE TO DO 
o02402 : 
005204 
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8 MAC 
INARY TO OCTAL (ASCII) 


occode 000004 


alee 


& = 6-<6 <— > — —— B- 6 -—- = 9 = p— po - 


S 





es isRe 0 i ® LAST DIGIT 
(SP)+,RS + nee 

ae) Re 

(SP)+,R3 fe 

2(SP)'4(SP) ACK FOR RETURNING 
(SP)+, (SP) 


Be TRA FOR asc IGIT 
a C Rina NATOR FOR Q A ROUTINE 
te Fit iL Teuiten 
0 ::NUMBER OF DIGI TO TYPE 












MAT 
DERP 


C-11-DERPS-8 MACY11 27(722) 


08-OCT-76 11:10 PAGE 244 
Pll TRAP DECODER 





i .SBTTL TRAP DECODER 
i POS RA MA Rag A AE Belge rt 
BP ie tis Rete ae ME URE Pe 
1 RED ROUTINE. ING THE BDBRESE Ob T WILL 
Lest G0 107 TINE. 
1251 
1251 1 ee, MOV RO, -(SP) 
1251 6 ooooo2 MOV 2(5P),RO P ADDRESS 
12514 TST -(RO) Hm 

1 MOVB (RO), RO 33GET ie ei? 

1 ASL RO isPOSIT on FOR EXING 

17 053470 O16000 053476 MOV STRPAD(RO) ,RO $3 INDEX 10 

18 053474 000200 RTS RO +:G0 TO ROU 






Hatt 


SS 
see 
fe 








-SBTTL TRAP TABLE 


sATHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
t#BY THE "TRAP™ INSTRUCTION. 


: ROUTINE 
$TRPAD: 






Ty TYPEOUT ROUTINE 


b= Bb fh = B= bs Fh Bh Fs 2 fH Fs 0 sR Bs he Bh eh 
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DERPSB.P11 POWER DOWN AND UP ROUTINES 






ieee eS .SBTTL PUWER DOWN AND UP ROUTINES 
ieete 5 Shan tee ter oe ee ee eee 
t 15535 Baa84B BBRRSE iPaton: ey ib ge PAVEEYES. Hatt ‘whtegtead 
ieee aS Bteeay Bnd BGbHs Un TR i api. 
1 1 MOV neat US RL ON STACK 
ny Reve) Pues Fe Oh Stace 
ie Bee flee my Reictses HIM tee 
1e556 1 6 125360 HOY gShiR, (SP) : }PUSH GSHR ON STACK 
ise88 Olea? pegese oo0024 MOV Ss SRY S epuavect foeet UP VECTOR 
560 000776 BR 2 ;;HANG UP 
Mae i Re ee 
t BOWER OUTINE 
012737 053670 . ooo024 $PWRUP hol SILLUP, QHPHRVEC ; siSET_E FOR FAST DOWN 
Oosoby pooped CLR SeAvne MALT L OOP FOR THE TTY 
7 00054 1S: Inc SoAV *:WAIT FOR THE INC 
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